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The Oric Software Station is a service to help avoid those programming blues! particularly with those larger 
programmes, if you’ve neither the time or the patience, let us help! 


NEW SOFTWARE - NEW SERVICE - NEW LIBRARY 


CROWLEY'S HOUSE. Oric-1 


This super new fantasy adventure program launches a new software library service for O.U.G. members. The library 
software is exclusive to group members at realistic prices. So make the most of these opportunities and support your 
group at the same time. 


To launch the software library we take you on a fantasy adventure trip into supernatural time and space. 

Who was Aleister Crowley? Was he a supernatural being? What was in the note that he left when he 

disappeared? Can you crack the Crowley’s House legend? This new adventure comes to you from a well known stable 
of adventurers and is a super package to launch this new group service. So Don’t Delay! ! 

CROWLEY'S HOUSE (Oric- 1) £5.00 inc 


MORE NEW TITLES COMING SHORTLY 
WATCH THESE PAGES 


FRONT COVER 


Mr Barry Muncaster Managing Director of Oric 
Products International and the joint Managing 
Director of Edenspring Investments, an investment 
company which recently acquired O.P.1. 


Mr Muncaster trained as a telecommunications 
engineer with the British Post Office, specialising in 
automatic exchange maintenance. After five years 
he left to join three other people in starting Laser- 
scan Laboratories, the first company to move onto 
the Cambridge Science Park. There he worked with 
Prof. Otto Frisch, a world famous physicist and 
pioneer of the concepts of nuclear fission, in 
developing a computer controlled laser system 
employed in the analysis of bubble chamber 
experiments. During this period he attended 
Durham University reading system engineering. 


In the early seventies he established Speed 
Electronics Lid which developed electronic 
taximeters, many of which still appear in London taxi 
cabs under the name Cavalier. This product was the 
first in the U.K. to exploit microprocessors in large 
volume application. Late in 1978 Barry Muncaster 
met Dr. Paul Johnson and together they founded 
Tangerine Computer Systems which designed and 
produced the popular Microtan, Tantel and Tiger 
range of computers. Tantel gained 74% of the U.K. 
Viewdata market. 


Tangerine designed the Oric microcomputer and is 
the only U.K. company to have developed its own 
Un-Committed Logic Array from silicon upwards. 


Oric - 1 was launched in January 1983 and has 
already sold in large numbers worldwide. Joint 
venture companies were then established in 


Singapore and Japan to penetrate the enormous 
potential of the rapidly expanding Asian market 
place for home computers. 


WS... 


A NEW MAN IN THE TEAM 


Malcom (Ken) Kendrick (aged 48) joins the Oric 
Users Group team and assumes responsibility as 
Director of U.K. operations and also takes on the role 
of joint Editor of Oric Computing, Taking over the 
production and distribution from Bob Green who 
now assumes new responsibilities including the 
further development of the Groups activities at home 
and overseas. 


Ken’s interest in electronics and computing began 
while he was serving in the R.A.F. as.an Air Traffic 
Controller, this provoked a keen interest in Radio 
and Computing electronics which eventually led to 
him becoming a Radio Amateur enthusiast on 2 m 
and 70 cm bands (Call Sign G6CYU). This naturally 
led still further to computer applications and 
development in this field. After spending more than 
twenty years in small business Ken now joins the 
team and brings with him much expertise for the 
benefit of O.U.G. members. 


STOP PRESS NEWS 
RAMTOP 


Radio Amateurs Microcomputer Techniques, 
Operation and Programs circulates a group 
magazine dedicated to radio amateurs, and as the 
name suggests, for those who also use computers. 
The Ramtop magazine is issued to subscribers four 
times a year, at the end of the months of April, July, 
September and January. It contains program 
listings, circuit diagrams and ideas for adapting a 
wide range of micros to amateur radio uses. Having 
seen the list of members of Ramtop it seems that 
Oric/Atmos Radio Amateurs may find some 
comrades already at work. Material is pooled 
between various Groups, including the A.S.C.|I. 
magazine of the German R.A.C.G. and with 
Swedens ‘Swedish Calling DXer’s. For details of 
Ramtop write to R.P. Butcher, Great Billing Rectory, 
Northampton. NN3 4ED. 
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ORIC COMPUTING - BACK ISSUES 


ISSUE 1. November/83 


Oric Attributes in Action 
Coworth Park Horrors 
Barbican Report 

Tape Verify Routine 
Software Reviews 

and more 


ISSUE 3. January/84 


Oric Dragon Curves 
MCP40 Printer Review 
Showing Off 

Gone Static 

and more 


ISSUE 2. December /83 


Oric Specs 

Yahtzee 

Mastermind 

More Attributes in action 
Software Reviews 

and more 


ISSUE 4. February/84 


Morse Trainer 

3D Noughts & crosses 
More Scope for your Micro 
Inside Atmos 

Software Reviews 

and more 


Oric Computing back issues are available directly from Oric Owners Users Group, 
1, Marlborough Drive, Worle, Avon. BS22 ODQ - - £1.00 each 
Please make Cheques/ Postal to O.U.G. Ltd 


RIC ATTRIBUTE 


REMSSSSSSSESAA AAT A TATA A TEESE 


REM* % 
REM* Oric Attributes Part Four! & 
REM* % 
REMSSSSASAKTEETE ATRESIA Ss 
REM*% t 
REM& By Roger Massey (C) 1984 % 
REMS % 


REMSSSSSEA TAKA TTT AAA TRATES 
PAPERO: INK7: POKE618, 2 


25 DATAO, 14,8, 14,8,56, 40,56 


POKE48035, 0:CLS:PLOTO, 11,10:PLOTO, 12, 10:PLOT1,11,17:PLOT1,12,17 
AS="P ART F OU R":PLOTI1,11,A$:PLOTI1, 12, A$: WAIT400 


FORX=0T07: READA: POKE446080+88ASC ("\") +X, As NEXT 


PAPERO: INKO: HIRES: PAPERO: INK1:PRINTCHR$ (17) 


60 CURMOV18, -2, 3:NEXT:PLAYO,0,0,0 


T$="ORIC THE MUSIC MAKING MICRO":CURSET14, 25, 3:FILL8, 1,2 
CURSET45, 25, 3: FORX=1 TOLEN(T$) : CHARASC (MID$ (T$,X,1)),0, 1: CURMOVS,0, Os NEXT 
N=13:M=226: C=90: FORX=1T05: CURSETN, C, 0: DRAWM, 0, 2: C=C+4: NEXT 
CURSET21, 104, 3: FORX=1T012: CHAR92, 0, 2:MUSIC1, 3, X, 10: WAIT30 


T$="ORIC THE SOUND SYNTHESISER": CURSET14, 155, 3:FILL8,1,5 
CURSETS1, 155, 3: FORX=1 TOLEN (T$) : CHARASC (MID$ (T$, X,1)), 0, 1: CURMOVG, 0, O: NEXT 


WAIT 100: E$=CHR$ (27) : ZAP: PRINTSPC (8) E$+"DZAP"; 


WAIT75: SHOOT: PRINTE$+" BSHOOT"; :WAIT75:PING 
PRINTE$S+"FPING"; :WAITSO: EXPLODE: PRINTE$+"EEXPLODE" 
WAITS50: TEXT: POKE618, 2: INK2:PLOTO,0, 1 
POKE48035,0:T$=": SOUND AND MUSIC MAKING :":PLOT6,0,T$ 
DOKE 621, 48080: POKE623, 24: POKE48041, 1: PRINTCHR$ (30) 
PRINT"ORIC in common with most computers has"; 
PRINT"the ability to produce a range of both"; 
PRINT"musical and non-susical sounds. 

PRINT:PRINT"A special sound synthesiser chip is 
PRINT"responsible for producing these sounds"; 
PRINT“and is of the variety more commonly 

PRINT"found in games machines. However ,quite 
PRINT"stunning results can be obtained which"; 
PRINT"are limited only by the users musical ability or imagination." 
PRINT:PRINT"The object of this program is to fill 
PRINT"the void left when the ORIC manual’s 

PRINT"sound section has been consulted." 

PRINT: PRINT"You will be presented with a menu from"; 


99 PRINT“which you can select any command by pressing: the appropriate number" 


218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
22 

22F 
2350 
231 
232 
2353 
234 
235 
236 
P37 


GOSUBS000 
POKE619, 20: POKE4620, 7:CLS 
PLOT17,3, "MENU": PLOT17,4," 
PLOT7,7,17:PLOT8,7,"1. SOUND":PLOT17,7, 20 
PLOT7,10,17:PLOT8,10,"2. MUSIC":PLOT17,10,20 
PLOT7,13,17:PLOT8,13,"3. PLAY":PLOT17, 13,20 

PLOT7, 16,17:PLOT8,16,"4. DEMO":PLOT17, 14,20 
PLOT7,19,17:PLOT8,19,"5. GENERAL ":PLOT20, 19,20 
PLOT7,22,17:PLOT8,22,"6. QUIT":PLOT17,22, 20 

A$=" PLEASE MAKE YOUR SELECTION “:PLOTO, 26, 12: FORX=1TOLEN (A$) 
A=ASC (MID$ (A$, X, 1) ) +128: POKE49085+X, A: NEXT 
GETR$:R=VAL (R$) : IFR< 1O0RR>S6THENI5S 
ONRGOTO200, 300, 400,500, 600, 700 

GOSUR5040: PAPERO 

PRINTSPC (8) CHR$ (27) 5 "Q@"CHR& (27) "GTHE SOUND COMMAND "CHRS(27)"P" 
PRINT:PRINT" ";CHR$(27)"TSOUND Channel, Period, Volume"; CHR$ (27) "P" 
PRINT:PRINT"Channel is a number between 1 - 6 and 
PRINT"selects channels as follows:-" 

PRINT:PRINT"1.Selects tone channel one.“ 

PRINT"2.Selects tone channel two." 

PRINT"3.Selects tone channel three." 

PRINT"4.Routes noise generator to channel 1."; 

PRINT"S.Routes noise generator to channel 2."; 

PRINT"&S.Routes noise geneSCRNator to channel 3."; 
PRINT:PRINT"N.B.If the SOUND command is used in 
PRINT"immediate mode then only channel one 

PRINT"can be used without a PLAY command." 

PRINT"Also the noise must be enabled by a 

PRINT"PLAY command before SOUND 4-6 are used"; 

PRINT"SOUND 4-6 following the appropriate 

PRINT"PLAY commands will produce noise or 

PRINT“noise and tone(s) mixed" 

DOKE6?1 , 48240: POKE&623, 22: GOSUB5000 

PRINT"PERIOD is a number in the range:- 

PRINT: PRINTSPC(7)"0 - 65535" 

PRINT:PRINT"The number sets the pitch or frequency"; 
PRINT"for the selected channel. The higher 

PRINT"the number, the lower the pitch is." 

PRINT"4096 is the lowest pitch value and a 

PRINT"number greater than this repeats the 

PRINT"same series ie.4097 = 1." 

PRINT"Some values (1-4) produce tones that 

PRINT"are beyond our range of hearing,but 

PRINT"they may excite your pets!!! 

PRINT: PRINT"VOLUME is a number in the range 0 - 15"; 

PRINT: PRINT"This sets the loudness of the sound 
PRINT"produced. 1 = soft,i5 = loud" 


PRINT"O transfers volume to a subsequent 

PRINT"PLAY command. 

GOSUBRS000: GOSUBS100 

GOSUBS040: PAPERO 

PRINTSPC (7) CHR$ (27) 5 "@"CHR$(27) "“GTHE MUSIC COMMAND ";CHR$(27)"P" 


PRINT:PRINT" "CHR$(27)"TMUSIC Channel, Octave, Note, Volume"; CHR$(27) ;"P" 


PRINT:PRINT"CHANNEL is a number = 1 -— 3 and is 
PRINT"“used to select the appropriate channel" 
PRINT"OCTAVE is a number = O - 7 and selects"; 
PRINT“in which octave the note is to be 
PRINT"played, 0 being the lowest." 
PRINT:PRINT"NOTE is a number = 1 - 12 and selects 


PRINT"the note from within the chosen octave" 
PRINT"1 = C 4 = D# 7 = F# 10 = 4 

PRINT"2 = C# 5S =E 8B8=6 11 = A# 

PRINT"3 =D 6&6 =F 9 = GR 12 = 8 

PRINT: PRINT"VOLUME is a number = 0 - 15" 


PRINT" = soft 15 = loud 

PRINT:PRINT"If volume = 0 then it is set by a 

PRINT"subsequent PLAY command." 

60SUB5000: 60SUBS100 

PRINT: PRINT” 

REPEAT: UNTILKEY$="P" 

GOSUBS040: PAPERO 

PRINTSPC (8) CHR$ (27) 5 "@"CHR$(27) "GTHE PLAY COMMAND ":CHR$(27)"P" 
PRINT:PRINT" "CHR$(27)"TPLAY Tone E,Noise E,Env M,Env P";CHR$(27) "P" 
PRINT: PRINT"Tone E and Noise E are both channel 

PRINT"selectors which are set according to 

PRINT"the table below." 


PRINT: PRINTSPC(7)"0 = No channels on" 
PRINTSPC(7)"1 = Channel 1 on" 
PRINTSPC(7)"2 = Channel 2? on” 
PRINTSPC(7)"3 = Channel 1 + 2 on" 
PRINTSPC(7)"4 = Channel 3 on" 
PRINTSPC(7)"5S = Channel 1 + 3 on" 
PRINTSPC(7)"6 = Channel 2 + 3 on" 
PRINTSPC(7)"7 = Channel 1 + 2 + 3 on" 


PRINT:PRINT"Env M refers to one of seven possible 
PRINT"envelope shapes and is therefore a 
PRINT"number in the range 1 - 7" 

DOKE&21, 48240: POKES23, 22: GOSUBS000 

PRINT"Env P is a number in the range:- 
PRINT:PRINTSPC(7)"0 - 65535 

PRINT:PRINT"This last parameter is used to set the"; 
PRINT"length of certain portions of the 
PRINT"envelope mode selected and it’s effect"; 
PRINT"varies from mode to mode. 

PRINT: PRINT "Mode Portion under control" 
PRINT:PRINT" 1 Decay from immediate attack" 
PRINT" 2 Attack time to immediate decay” 


PRINT" 3 As 1 only contiuous" 

PRINT" 4 Attack and Decay continuous” 

PRINT" 53 Initial decay from peak then continous 
PRINT” 6 Expotential Attack: immediate Decay continuous” 
PRINT" 7 Attack to peak:continuous" 


DOKE621, 48240: POKES23, 22: GOSUB5S000 
PRINT:PRINT"The PLAY command is the most versatile"; 
PRINT“of the three sound commands available 
PRINT"In order to achieve the best effects 
PRINT"it’s use should be clearly understoad. 
PRINT"PLAY can be used prior to SOUND or 
PRINT"MUSIC in order to set up the channels 
PRINT"Eg PLAY7,0,0,0 will open all three of 
PRINT"the tone channels. 

PRINT"Likewise PLAY0,7,0,0 will route the 
PRINT"noise to all the channels but no tones" 


4 


604 
605 


607 
608 
609 
610 


PRINT"In both cases no sound will result 

PRINT"“because the other parameters are 0 

PRINT"However,any play command issued after 

PRINT"the execution of another which was 

PRINT"not terminated with PLAYO,0,0,0 is 

PRINT"liable to produce unwanted results 

GOSUBS5000: GDSUBS 100 

CLS: A$=" SOUND DEMONSTRATION RUNNING": POKE618, (PEEK (618) ORS) 
FORL=1 TOLEN (AS) = A=ASC (MIDS (AS,L, 1) ) +128: PLOT4+L, 26, A:NEXTL 
E$=" THE SOUND COMMAND ":PLOTS,7,E$ 

PLAY7, 0, 0, 0: FORX=1 T0400: SOUND1, X, 10: SOUND2, X+10, 10: SOUNDS, X+30, 10: NEXT 
WAIT200: PLAYO,0,0,0 

PLAY7, 0,0, 0: FORN=1 1025: FORY=1 TO3 

A=RND (1) 8100+1: SOUNDY, A, 10: WAITIO: NEXTY,N:PLAYO,0,0,0 

PLAYO, 1,0, 0: FORN=1 7031: SOUND4, N, 15: WAIT100: NEXT: PLAYO,0,0,0 
PLAY1, 0,0, 0: FORN1=1T020: SOUND1 , 800, 15: WAIT40: SOUND1, 400, 15: WAIT40: NEXT 
PLAYO,0,0, 0: WAIT100 

PLAY7, 4,0, 0: FORN=1 T1025: FORY=1T031 

SOUND1, 4N, 10: SOUND2, 3000, 14 

IFINT (Y/2)=Y/2THENSDUNDS, Y, 14ELSESOUNDS,N,12 

NEXTY,N: EXPLODE: PLAYO, 7, 1,15000: WAIT&00: PLAYO,0,0,0 

E$=" eg 
FORX=1TOLEN(E$) : PLOT4+X, 7, ASC (MID$(E$, X, 1) )+128:NEXT 

E$="" THE MUSIC COMMAND ":PLOTS, 14,E% 
WAIT100:PLAY7,0,0,0:MUSIC1, 3,1, 10:MUSIC2, 3,5, 10: MUSIC3,3,8,10 
WAIT200:MUSIC1,2,12,10:MUSIC2,3,3, 10: MUSIC3,3,8,10 
WAIT200:MUSIC1,3,3, 10:MUSIC2, 3,4, 10:MUSIC3,3, 10,10 

WAIT200: MUSIC1,3,3,10:MUSIC2,3,6, 10:MUSIC3,3,11,10 

WAIT200: MUSIC1,3,1,10:MUSIC2,3,5, 10:MUSIC3,3, 10,10 

WAIT200: MUSIC1,3,3, 10: MUSIC2, 3,6, 10:MUSIC3,3,10,10 

WAIT200: MUSIC1, 2,12, 10:MUSIC2,3,5, 10:MUSIC3,3,8,10 

WAIT200; FORX=17020: FORN=12TO1STEP-1 

O=INT (RND (1) %6) +1: A=INT(RND (1) #12) +1 

MUSIC1,3,N, 10:MUSIC2,0,N, 10:MUSIC3,0,N,10 

NEXTN, X:WAIT200: E$=" = 

FORX=1 TOLEN(E$) : PLOT4+X, 14, ASC (MIDS (E$, X, 1) )+128:NEXT 
PLAYO,0,0,0:E$=" THE PLAY COMMAND ":PLOTS,21,E$ 
WAIT100:PLAY7,0,0,0:MUSIC1,1,1,0:MUSIC2, 2,5, 0:MUSIC3,4,8,0 
FORX=1T010: PLAY7, 0, 1, 5000: WAIT200: NEXT 

FORX=1TO3: A(X) =RND (1) 8500: NEXT: SOUND1,A(1),0:SOUND1,A(2) ,0: SOUNDS,A(3),0 
PLAY7, 1,4, 4000: WAIT1000:PLAYO,0,0,0 

N=100: REPEAT: SOUNDS, 1,0: SOUND4, 2, 0: PLAYO, 3,6, 300: WAIT40: N=N-1 
IFN/5=150RN/5=1 OORN/S=STHENMUSICS, 4, 9, 0: PLAY4, 3,6, 300: WAIT4O 
PLAYO, 3,6, 300: UNTILN=0: PLAYO,0,0,0 
FORO=7TO1STEP-1:FORN=12TO1STEP—1:MUSIC1,0,N,O:PLAY1,0, 1,800: NEXTN,O 
E$=" * 

FORX=1 TOLEN(E$) : PLOT4+X, 21, ASC (MIDS (E$, X, 1) ) +128: NEXT 
FORX=0TO38: PLOTX, 26, 32: NEXT: CLS: GOSUB5000: GOSUBS 100 
GOSUBS040: PAPERO: PRINT" "“CHR$ (27) "@"CHR$(27)"GGENERAL IMFORMAT ION" 
PRINT:PRINT"The sound chip can generate three 

PRINT"tones simultaneously and or noise . 

PRINT"The tones are simple square waves the 

PRINT"frequency of which ranges from a few 

PRINT"cycles per second to approx 66Khz or 

PRINT"S6& thousand cycles /second.By using 

PRINT"the sound command we can utilise the 

PRINT"whole frequency range of the chip in 

PRINT"4096 steps.However the sound command 

PRINT"parameters do not allow the frequency 

PRINT"to be specified so that in coincides 

PRINT"with the musical scale,and so we are 

PRINT"provided with another command music. 

PRINT"Music allows the frequency of any or 

PRINT"all of the tone channels to be set to 

PRINT"the correct musical intervals over a 


PRINT"seven octave range." 
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PRINT: PRINT“Noise is by definition a series of 
PRINT"random frequencies at varing amplitude"; 
PRINT"covering the audio spectrua. 

DOKE&21 , 48140: POKE4623, 24: GOSUBS000 
PRINT"Noise is therefore termed aperiodic 
PRINT"“ie it has no stedy period (frequency) 
PRINT"The different tonal qualities of noise"; 
PRINT"are termed colours.White,Pink and Red 
PRINT"being three examples.Oric is very 
PRINT"generous in providing 32 different 
PRINT"tonal qualities of noise.Noise and 
PRINT"tones both gmusical—-non musical can be 
PRINT"combined to provide a large variety of"; 
PRINT"sound effects.” 

PRINT:PRINT"Enter the play command. 


PRINT: PRINT"The play command can be thought of as 


PRINT"a switching device selecting the 3 
PRINT"channels and noise turning them on 
PRINT"and of f.Without this command only one 
PRINT"channel would be useable. The most used"; 
PRINT"play command is PLAYO,0,0,0 which 
PRINT"turns everything off 

6OSURSO00 

PRINT"Four predefined sound effects can be 
PRINT"accessed, these being: -— 

PRINT: PRINTSPC (6) "1.PING (typewriter bell) 
PRINTSPC (6) "2. ZAP (laser fire) 

PRINTSPC (6) "3. SHOOT (gunshot) 
PRINTSPC (6) "4. EXPLODE (explosion) 


PRINT:PRINT"In addition to this are two different 


PRINT"sounding keyclicks,one for the CTRL 
PRINT"key and one for any other key press. 
PRINT"These two sounds are generated using 
PRINT"tone channel one only.Any Sound.Play 
PRINT"or Music command once interpreted and 
PRINT"running does not interfere with the 
PRINT"program that is presently being run 
PRINT"except for ZAP.This is because the 
PRINT"processor is required to continually 
PRINT"update the sound registers.Also Zap 
PRINT"is the only predefined sound that we 
PRINT"can chain ie ZAP:ZAP:ZAP without the 
PRINT“use of a wait statement. ”:GOSUBS000 
PRINT"When using any of the sound commands 
PRINT"it is always advisable to turn of the 
PRINT"the keyclick(s).Failure to do this is 
PRINT"likely to interfere with the sound if 
PRINT"any input from the keyboard is needed 
PRINT"during the course of the program 


PRINT: PRINT" The sound chip can be controlled from 


PRINT"a machine code program by using the 
PRINT"parameter storage area to hold the 
PRINT"data or by creating a table and then 
PRINT" jumping to the appropriate rom routine 
GOSUBRS000: GOSUBS100 


DOKE621, 48000: POKE623, 27: CLS: PAPERO: INK7: 60104999 


4999 END 


5005 A=INT(RND (1) %7)+1:B= (23-16) SRND(1) +16 
5010 IFINT(B)=INT (A) THENSO05 

5020 POKE48040, INT (B) : POKE48041,A 

5030 UNTILKEY$="_":PAPERO:PLOTO,0, 1 

5040 FORX=0T038:PLOTX, 26, 32: NEXT 


5100 DOKE621, 48080: POKE623, 24: POP: GOTO105 
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PLOTO, 26, 12:PLOT1, 26,4: A$="PRESS SPACE TO CONTINUE":PLOTS, 26,A$: REPEAT 


PRINTCHR$ (30) s FORX=1 TOPEEK (623) s PRINTCHR$ (11) 5 s NEXT: RETURN 


ORIC SUPPORTED HEALTH CARE 


Ales Satanek M.D. 


22222] 22] 2 222] Qa ]WQ]s A] ]*AB] A WAZA BOOB AOA SO 


The sophisticated methods of medical treatment 
generate a constantly increasing flow of data. At the 
same time the urgent need for more rapid 

processing and evaluation of the data is making 
increasing demands on the physician. Effective and 
efficiant treatment calls for accurate and 
immediately accessible information. The 
introduction of modern data techniques releases 
highly qualified staff from routine tasks, thus leaving 
more time for personal attention to the patient. 
Manually maintained card indexes inevitably contain 
errors of mis-filing and duplication. The future trend 
is the turn to computers in order to help eliminate 
the mistakes. 


The presented program compiled for the 48K Oric 
supports a medical record. The entered data are 
stored in the memory where they can easily be 
removed to tape. The searching routine offers a 
possibility to get a patient record even when an 
incomplete name is entered. In addition to this, there 
is a possibility to look for a certain diagnosis. The 
program then lists all patient records which contain 
the entered diagnosis. The deployed memory range 
for data storage is located between the addresses 
20000 and 30000 (Dec.) which is enough space for 
daily requirements. 


BVPeeTeseew—we el HF VTeOwTwwevs CVSS OPT wvVwewews 


10 GOTO 1000 
2 REM PATIENT RECORDS 


15 REM BY ALES SATANEK, M.D. 1984 


30 A=LEN(AS$) 
50 FOR B=1 TOA 

60 BS=MID$ (A$, B, 1) 

80 C=ASC(B$) 

100 POKEM,C 

120 M=M+1 

130 NEXT B:POKEM, 34:M=M+1 


- 


140 IF M>30000 THEN PRINT"MEMORY FILLED" 


145 RETURN 
15q M=20000 
151 CLS 


152 PRINT"ENTER (1) if you are seeking for a NAME or (2) for DIAGNOSIS” 


153 INPUT N:IF N«i OR N22 THEN 153 


154 PRINT 
so ON N GOTO 160,705 
160 INPUT "SEARCH NAME: ";k¢% 
170 K=LEN(K$) 
180 GOSUB 606 
260 IF K$=S% THEN 270 ELSE 370 
270 M=M-K 
280 X=PEEK (M) 


290 IF X=234 THEN 350 
300 IF X=42 THEN 450 
310 X$=CHRS(X) 

S20 YS=YVS+XS 


S20 M=M+1 

340 GOTO 280 

250 PRINT: PRINTY$ 

360 S$="" : GOTO400 


370 St=""sM=M+1 

380 X=PEEK (M) 

390 IF X=34 THEN 400 

391 IF X=42 THEN 450 

400 M=M+1 

410 GOSUB 600 

420 GOTD240 

450 IF Y$= "" THEN PRINT"NOT FOUND": END 
451 PRINT"END ":END 

500 FOR I=1 TO K 

510 F=PEEK (M) 

615 IF F=42 THEN 450 

620 M=M+1 

630 T$=CHRS$ (F) 

540 S$=S$+T$ 

550 NEXT 

570 RETURN 

765 INPUT"SEARCH DIAGNOSIS: ";Ks$ 

710 F=FEEK iM) 

720 IF F=42 AND Y$="" THEN PRINT" THE SEARCHED DIAGNOSIS IS NOT INCLUDED":END 
721 IF F=42 THEN END 

730 IF F=34 THEN 780 

740 IF F=32 THEN 780 

750 FS=CHRS(F) 

740 G$=GS+FS 

770 M=Mt+1:GOTO 710 

730 IF K$=G% THEN Z=M:GOTOS00 

785 G¢="" 

790 M=M+1:G0TO710 

300 M=M-1 

310 P=PEEK(M) 

820 IF P=34 THEN M=M+1:GOTO850 

830 IF M=20000 THEN GOTO 850 

340 GOTO 800 

850 Y$="" 

860 X=PEEK(M) 

870 IF X=34 THEN 930 

880 IF X=42 THEN 451 

B90 X$=CHRS(X) 

900 YS=Y$+X$ 

910 M=M+1 

920 GOTO 8460 

930 PRINT:PRINT Y$ 

940 M=Z+1:G$="":GOTO 710 

1000 CLS:PRINT"PATIENT RECORD":PRINT 
1010 PRINT"Enter (1) for data input or (2) for searching data"; 
1020 INPUT Ms: IF M<1 OR M>2 THEN 1020 
1030 ON M GOTO 1050, 150 

1050 PRINT:PRINT"Enter */’ to terminate data input" 
1055 PRINT"Note: each word must be seperated by space":PRINT 
1060 M=20000 

1070 INPUT"Data:";A$: IF A$="/" THEN GOT01100 
1080 GOSUB 30 

1090 GOTO 1070 

1100 POKEM, 42:PRINT:PRINT"DATA LOADED" 
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ORIC SHOWING OFF AGAIN 


Doppel-Ganger 


eae a2 2] O22] 2] 2] @ ]2S]ASD @] @ 2A BQ A @ @ 7ABZ2VSIS ]WIA SAB 


The Original Oric Showoff was designed to explore See sine waves in three different colours on the 

the features of the Oric-1, but recently | decided that screen at the same time, hearmusic in wonderful 

as | had learnt much more about this machine, | three part harmony, see a teletext - prestel type 

would write a sequel. screen in living colour, see background attributes as 
you've never seen them before, and the climax, a 

I’ve seen the flashy machine code demo put out for golden goblet drawn (Before your very eyes!) in 

the Atmos, but we want to show people what can be wonderful Three-D! 

done with a little knowledge in good oldfashioned 

Basic, and here it is, fully compatible with both Roll up, roll up for the wonderful all basic no trickery 

Roms (Oric-1 and Atmos) multi-coloured Oric show! (And by removing the 


50 
7Q 
80 
85 
90 
100 
101 
110 
120 
125 
130 
140 


CALL # E6CA and CALL # E804 statements it will 
run on the Atmos too!) 


N.B. Remember that you must substitute a pounds 
sign for the in the listing. 


BVVwVeTets ee VeVWVeT CTT TT STS BWV. SW eB SH TC TST 


1 REM SERSRAKAER ETAT EERE TET 
2 REM % x 
3 REM & Showing Off Again !!!' & 
4 REM 2 x 
3 REM # with Dopple—-Ganger x 
& REM & % 
7 REM SHORES RTT ERA E REET 
8 REM &* (C) 1984 x 
G REM OREO T EEE 


REM These programs are valuable because routines developed here can be used 
REM elsewhere. By studying the listing routines may be borrowed for other 
REM programs or adapted tc meet specific needs. A lot can be learnt this 
REM way for many. If this program is too long, then it’s available on tape 
HIMEM #96FF 

REM ORIC SHOW-OFF PART TWO 


Oo REMEMBER THE ORIGINAL ORIC SHOWOFF? 


REMARKABLY ENOUGH THIS IS THE SEQUEL... WRITTEN BY THE DOPPEL-GANGER 
REMEMBER TO USE ? FOR PRINT, OR YOU WILL FIND SOME LINES TOO LONG.. 
PAPERO: INK7: HIRES: POKE418, 10: X=18: Y=80 

CURSET12, 10, 3:FILL70, 1, 1: CURSETS9, 10, 3:FILL70, 1, 2:CURSET164, 10, 3:FILL70,1.4 
DUM$="WELCOME ! ": XP=102: YP=2: GOSUB60000 

REPEAT: X=X+1:Y=Y-1 

CURSETX,Y,3 

DRAWO, -60, 1: DRAW4O, 0, 1: DRAWO, 60, 1: DRAW-40, 0, 1: CURMOV15, —15, 3: DRAWO, -30, 1 
DRAW30, 0, 1: DRAWO, 30, 1: DRAW-30, 0, 1 

CURSETX, Y, 3: CURMOV76, 0,3 

DRAWO, -60, 1: DRAW20, 0, 1: DRAW, 40, 1: DRAW20, O, 1: DRAWO, —40, 1: DRAW20, 0, 1 
DRAWO, 60, 1: DRAW-60, 0, 1 

CURSETX, Y, 3:CURMOV152,0.3 

DRAWO, —60, 1: DRAWSO, 0, 1: DRAWO, 20, 1: DRAW-50, 0, 1: DRAWO, 30, 1: DRAW30, 0, 1 
DRAWO, -10, 1 

DRAW-10, 0, 1: DRAWO, -10, 1: DRAW30, 0, 1: DRAWO, 30, 1: DRAW-40, 0, 1 

UNTILX=23 


FORY=10T084 

: COL=INT (RND (1) $7) +417: IFCOL=1 70RCOL=1 8ORCOL=20THEN1 60 
CURSET4, Y, 3:FILL1,1,COL:NEAT 

DUM$="ARE PLEASED TO PRESENT": XP=35: YP=100: GBOSUB4&0000 
DUM$="ORIC SHOWOFF II": XP=60: YP=120: GOSUB60000 

CURSETSS, 128, 3: DRAW (LEN (DUM$) #7) +5,0, 1: 

DUM$="If you liked Show-off I, °:XP=15: YP=135; GOSUB60000 
DUM$="then you’11 Love this..":XP=15: YP=145; GOSUB40000 
DUM$="All the things there would have“: XP=15: YP=155: GOSUB60000 
DUM$="been if I had known how to do": XP=15: YP=165: GOSUB40000 
DUMt="them at the time. So sit back, ":XP=15: YP=175:G0SUB460000 
DUM$="Watch and Listen. ":XP=15: YP=185: BOSUB60000 
DUM$="Doppel —Ganger . ": XP=140: YP=190: GOSUB60000 
DUM$="SORCERER" : ES=1: EP=7000: GOSUB461000 


PRINT:PRINT"Are you sitting Comfortabl y?"SPC(28) "Then we'll Begin.";:WAITSOO 


HIRES: POKE618,10:PRINT"Three different ways of plotting in" 
PRINT"full colour, first horizontal sines" 

PRINT"drawn with the DRAW command";: 

IK=0: REPEAT: IK=IK+1 

IFIK=1THENDEF FNA(Z)=99+804SIN(6. 288 (X-12) /113) 
IFIK=2THENDEF FNA(Z)=99+B048SIN(PI&(X-12) /113) 
IFIK=3THENDEF FNA(Z)=99+804SIN(12.568(X-12)/113) 
CURSET11,99,3 
FORX=137T0239: DRAWX-PEEK (537) , FNA(Y) -PEEK (538) , 1 
CURMOV~-6,—-3, 3:FILL4,1, IK: CURMOV6,3,3 

NEXT: UNTILIK=3 

CLS:PRINT"As you can see, this is a bit patchy” 

PRINT"and looks a mess. ":WAIT1000 

HIRES: POKES18,10:PRINT"Now we do it just plotting points” 


O PRINT"using the CURSET command." 


IK=0: REPEAT: IK=IK+1 
IFIK=1THENDEF FNA(Z)=99+804SIN(6. 28% (X-12) /113) 
IFIK=2THENDEF FNA(Z)=99+804SIN(PI&(X-12) /113) 
IFIK=3THENDEF FNA(Z)=99+8048SIN(12.56%(X-12) /113) 
FORX=1310239: CURSETX, FNA(Z), 1:CURMOV-6, 0, 3:FILL1,1, IK 
NEXT: UNTILIK=3 
CLS:PRINT"Better, less cluttered, but not Lines" 
WAIT1000: HIRES: POKES18, 10 
PRINT"Now we do it Down the screen, watch." 
IK=0: REPEAT: IK=IK+1 
IF IK=1 THENDEFFNA (Z) =120+10045IN(6. 2B4Y/100) 
IF IK=2THENDEFFNA (Z) =120+1008SIN(PI&Y/100) 
IF IK=3THENDEFFNA (Z)=120+1008SIN(12.568Y/100) 
CURSET120,1,3 
FORY=170199: DRAWFNA (Z) -PEEK (537) , Y-PEEK (538), 1 
CURMOV-12,0,3:FILL1,1, IK: CURMOV12,0,3 
NEXT: UNTILIK=3 
CLS:PRINT"This Vertical method gives the best results of all..":WAIT1000 
HIRES: POKE618, 10: DUM$="If you really must have": XP=10: YP=2: GOSUB460000 
DUM$="Different sines (Or some lines) ":XP=10: YP=11:GOSUB60000 
DUM$="0n the screen then the best way": XP=10: YP=180: GOSUB60000 
DUM$="to tell which one is which": XP=10: YP=190: GOSUB60000 
PRINT"is to pattern them. One line a fill. " 
PRINT"line, one Dotted, and one Dashed. Like this. "; 
PT=0: REPEAT: PT=PT+1 
IFPT=1 THENPAT TERN255: DEFFNA (Z) =99+808SIN(6. 288X/120) 
IFPT=2THENPATTERN! 70: DEFFNA (Z) =99+808S IN (PI&X/120) 
IFPT=3THENPAT TERN240: DEFFNA (Z) =99+808SIN(12.568X/120) 
CURSETO, 100,3 
: FORX=1TO239STEP6: DRAWX-PEEK (537) ,FNA(Z) -PEEK (538) , 1s NEXT: UNTILPT=3 
WAIT1000 
HIRES: POKE618, 10:PRINT"And while we’re still on Sinewaves, Try this..." 
PT=0: REPEAT: PT=PT+1 
IFPT=1 THENPATTERN255: DEFFNA (Z)=99+804SIN(6. 288X/120) 
IFPT=2THENPAT TERNI 70: DEFFNA(Z) =99+808SIN(PI8X/120) 
IFPT=3THENPAT TERN240: DEFFNA (Z)=99+808SIN(12.568X/120) 
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810 FORX=1T0239 

820 CURSETX, 199, 3: DRAWO, FNA(Z)-PEEK (538) , 2 
830 NEXT:UNTILPT=3 

B40 CLS:PRINT"Not too bad....":WAIT1000 
850 DATASORCERER, 8,3, 4,3,4,1,3 

860 DATAS,3,4,3,4,1,3,8,3,4,3,4,1,1 

870 DATA12,3,8,3,8,1,4 


3 

880 DATAI1,3,8,3,6, 1, 1,10, 3,6, 356, 1,2,8, 3,8, 3,65 Ly 055 by 544535651, 25 
BYO DATA4, 3,1, 3¢ 15450 5g3y Sy Sy by Ly Ly eB 1g Sy hg By lig tg lg by Sop Solel s2 
900 DATA11,3,6,3,6,1,1,10,3,6,3,1,1,2,8,3,8,3,1,1,.5,6,3,6,3,1,1,.5 
G10 DATAA, 3,1, 3yh5 15 +55 3p 353555, 151, 05153515 Sy 15 bed 

920 DATAL1, 3,6, 3,6, 1,1, 10, 35653565 14258, 3,8, 54h, Ly 05g by 346, 35,65 1,25 
F3O DATA4S, 3,143,515 1, «5g 353535551515 25y 1,351,351, 1,1, 1,351,355 1,1,2 
940 DATA4, 3,12, 2,4,1,1,6435 1435565 1,244,3, 12,2545 1405, 3535 5454351525 


gaa 
950 DATAI,3,8,2,1,1,4 


3 
970 DATAI1, 3,8, 3465141510535 64356514248, 358,35, 65 15 0 5¢ 6 346,3,6,1,-5 
FBO DATAS, 3, 14341515 05g Sy Sy Sy Sy ly hye 5y 1,341,355 1,151,155, 1,351,1,2 
990 DATAI1, 3,643,651, 15105354534 15142, 84358435151, 0556, 356,35 1,1,-5 
1000 DATA4,3,1,3,1,1,-5,3,3,3,3,1,1,.5,1,3,1,3,1,1,3 
1010 DATA11,3, 6,3, 6, 14 15105356, 3,65 1, 2,8, 3,8, 3465 Ly «5 by 3465 35651,-5 
1020 DATA4, 351,351, 1, «553535555151, -5y 14351535515 151515351535 1,1,2 
1030 DATAS, 3, 125244, 1515434153565 14 2445351252445 Lye Sy By 34553535 1,-5 


1040 DATAI,3,8,2,1,1,4,0,0,0,0,0,0,0 
1050 HIRES: POKE618,10:PRINT"Of course the simplest way to produce" 
1060 PRINT"multi-colour displays is like this:-" 

1070 FORY=0T0199; CURSET4, Y, O:FILL1,1, INT (RND(1)%7)+1:NEXT: EXPLODE 
1080 FORD8=1TOINT (RND(1)%10)+10 

1090 X=INT(RND (1) #225) +13: Y=INT (RND (1) #200) :R=INT (RND (1) &70)41:Z=(RND(1) +. 2) 
1100 S=INT(RND (1) &3)+2:ST=S/2 

1110 PATTERNINT (RND(1)#127)+127 

1120 RS=R&R 

1130 FORX1=X-RTOX+RSTEPST 

1140 IFX1<13THEN1220 

1150 IFX1>239THENX1=X+R: 60701220 

1160 Y1=Z&SQR (RS—(X1-X) 8 (X1-X)) 

1170 YT=Y+t¥Y1 

1180 IFYT<QTHENYT=0 

1190 IFYT>199THENYT=199 

1200 CURSETX1, YT, 2: Yi=—-Y1: IFY+Y¥1=YTTHEN1I220 

1210 YT=Y+Y1: IFYT<OTHENYT=0 

1215 IFYT>199THENYT=199 

1216 DRAWX1-PEEK (537) , YT-PEEK (538) , 2 

1220 NEXTX1 

1230 NEXTDS 

1260 WAITS00: CURSET12,0, 3:FILL200, 38, 64 

1270 CLS:PRINT"By using this sequence of commands: -" 

1280 PRINT"? CURSET12,0,3:FILL200,38,64°" 

1290 PRINT"you leave the Attributes intact.!"3: 

1300 PATTERN2S5: CALL#E6CA 

1310 H=226:V=189 

1320 DUM$="This pattern takes time to draw": XP=13: YP=190:GOSUB60000 
1330 X1SH/2:X2=K18X1: Y1I=V/2: Y2=V/4 

1340 FORX=OTOX1 

1350 X4=X8X:M=-Y1 

13460 A=SO@R (X2-X4) 

1370 FORI=-ATOASTEPV/ 20 

1375 R=SOR(X4+181)/X1 

1380 F=(R-1) sSIN(R#12) 

1390 Y=I/5+F tY2 

1400 IFY<=MTHEN1420 

1405 M=Y:Y=Y1-Y 

1410 CURSET (X1-X) +13, Y, 1: CURSET (X1+X) 413, Y,1 

1420 NEXTI, X:CALL#E804 

1430 WAIT1000 

1440 TEXT: POKF418. 10:PRINTCHRS (4) 
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2020 
2030 
2040 
2050 
2060 
2065 
2070 
2080 
2090 
2100 
2110 


PRINT? “CHR$(27)"Jof characters, Ordinary, like this":PRINT:PRINT:PRINT 
PRINT" "CHR$(27)"J and Alternative"CHR$ (27) “OLIKE THIS":PRINT:PRINTs PRINTCHRS (4° 
DUMS="YOU CAN ALSO HAVE REVERSED VIDEO": D2$="" 

FORX=1 TOLEN (DUM$) : D2$=D2$+CHR$ (ASC (MIDS (DUM$, X, 1) )OR128) sNEXT 
PLOT2, 13, CHR$ (10) +D2$: PLOT2, 14, CHR$ (10) +D2$ 

DUM$="USING THE PLOT COMMAND AND A STRING": D2$="" 

FORX=1 TOLEN (DUM$) : D2$=D2$+CHRS$ (ASC (MIDS (DUMS, X, 1) )OR128) sNEXT 
PLOT2, 17, CHR$ (10) +D2$: PLOT2, 18, CHRS$ (10) +D2$ 

DUM$="0F CHARACTERS WITH THE TOP BIT SET.“:D2¢="" 

FORX=1TOLEN (DUM$) : D2$=D2$+CHR$ (ASC (MIDS (DUMS, X, 1) )}0R128) sNEXT 
PLOT2, 21, CHR$ (10) +D2$: PLOT2, 22, CHR$ (10) +D2$ 

FORIK=0T07: PP=7-IKs: INKIKs PAPERPP: ZAP: WAIT100: NEXT: WAIT250 

HIRES: POKE618, 10 

FORY=0T0199:FILL1,1, INT (RND(1) 87) +1:NEXT: ZAP 

FORA=1 TOSSTEP. 1 

CURSET120, 60.3 

S=At12 

X=SaSIN(A) 

Y=S%C0S (A) 

S=INT(S) s X=INT (X) s Y=INT(Y) 

CURSET12, 0,3: FILL200, 38, 64: CURSET120, 40, 3: CURMOVX,S,3 

DRAW-X,—-Y, 1: DRAW-X, Y, 1: DRAWX, Y, 1: DRAWX, -Y, 1: DRAWY, X, 1s DRAW-X,-Y, 1 
DRAW-Y, —X, 1: CURMOVY, X, 3: DRAW-X, Y, 1: DRAW-Y, —X, 1: CURMOVY, X,3 

DRAWX, Y, 1: DRAW-Y, —X, 1: CURMOVY, X, 3: DRAWX, -Y, 1: WAITS: NEXT 

WAITSO0: CURSETO, 0, 3: FILL 200, 40, 64 

TEXT: CLS: POKE618, 10: PRINTCHR$ (4) 

PRINTCHR$(27)"JThe Oric has a Graphics mode ":PRINT:PRINT:PRINT 
PRINTCHR$ (27) "J (LORES1) which is compatible with":PRINT:PRINT:PRINT 
PRINTCHR$(27)"Jthe *Chunky’ block graphics used":PRINT:PRINT:PRINT 
PRINTCHR$(27)"Jby Prestel, and Teletext services":PRINT:PRINT:PRINT 
PRINTCHR$(27)"JCeefax and Oracle. If you are":PRINT:PRINT:PRINT 
PRINTCHR$ (27) "Jfamiliar with these then the sight":PRINT:PRINT:PRINT 
PRINTCHR$(27)"Jyou are about to see is nothing new"CHR$(4) 
FORA=#BS00TO#BB7F : IFPEEK (A) =240THENPOKEA, 56 

IFPEEK (A) =1 5 THENPOKEA, 7 


NEXT:REMLINES1790-1810 CORRECT ALTERNATIVE CHR. SET. 

CLS:LORES1 

PRINT" "CHR$ (27) "S"SPC (36) 

PRINT" "CHR$(27)"S"CHR$(27)"D ___T __ a M3 
PRINT" “CHR$(27)"S"CHR$(27)"D _  __ 70 2M PP _\ 3/5 +TX’— (/_/! "5 
PRINT" "CHR$(27)"S"CHR$(27)"D ___” J* J> ## _ M>@ X°>MO IN "| 
PRINT" “CHR$(27) “S"CHR$ (27) "D 5 12% "3 
PRINT" "CHR$(27)"S"CHR$(27)"D sssasssssssssesasssssssss cS aa 
PRINT" "CHR$ (27) "S"CHR$(27) "D e's 


DUM$="DOPPEL-TEL (st April 1984 13:00" 
FORX=1 TOLEN (DUM) : POKE48002+X, ASC (MIDS (DUM$, X, 1) ) SNEXT 
PRINT: PRINTCHR$(27)"H Hello there, and Welcome to Dop-fax" 


PRINT 

PRINT" "CHR$ (27) "T"SPC (36) 

PRINT” “CHR$(27)"T"CHR$(27)"A *_] _ _ *// "; 
PRINT" "CHR$(27)"T"CHR$(27)"A = | +. "5 
PRINT" "CHR$(27) "T"CHR$(27)"A O_? O_? 0_? \ "; 


PRINT" "CHR$ (27) "T"SPC (36) $ 


PRINT" "CHR$(27)"T"CHR$(27)"B — 9 PO WE WS _/ 270 WS "5 
PRINT" "CHR$(27)"T"CHR$(27)"B — J* _ PZ ! J* 74 "5 
PRINT" "CHR$ (27) "T"SPC (36) 5 


PRINT" "CHR$ (27) "T"CHR$ (27) "C"CHR$(27)"M *_J _/]3 /_/ *_]) _ 
PRINT" "CHR$(27) "T"CHR$(27)"C"CHRS(27)"M = _— _\? _S / "3 
PRINT" "“CHR$ (27) "T"CHR$ (27) "C"CHR$ (27) "M 0_ ? _K\ ‘_ \ 0_? 


PRINT" "CHR$ (27) "T"SPC (36) 3 

PRINT 

PRINTCHR$ (27) "H "CHR$(27) "U"CHR$(27)"DChunky Prestel-type Graphics page "5 
PRINTCHR$ (27) "H "CHR$ (27) "U"CHR$(27) "Din Oric Showoff II. "5 
WAIT1000: POKE48000, 0: CLS: PRINTCHRS$ (4) 


PRINT" "CHR$(27)"JDid you spot the Topical Joke???":PRINT:PRINT:PRINT 
PRINT” "CHR$(27)"JBut that page should have given you":PRINT:PRINT: PRINT 
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2120 PRINT" "CHR$(27)"Ja Flavour of what may come i1f/when":PRINT:PRINT:PRINT 
2130 PRINT" "CHRS(27)"Jthe Modem is released.....":PRINT:PRINT:PRINT 
2140 PRINT" "CHR$(27)"JBut now let’s go back to good old":PRINT:PRINT:PRINT 
2150 PRINT" "CHR$(27)"JHigh Resolution Graphics...":PRINT: PRINT: PRINT 
21460 WAIT1000: HIRES: POKES18, 10 

2145 PRINTCHR# (4) 

2166 PRINT" "CHR$(27)"JPlotting in Hackground Attributes"CHR$(4) 

2170 Z=0:REPEAT: CURSETO, 0, 0:FILL200, 40,16 

2175 IFZ=OTHENDEFFNA (Z)=INT (ABS(SIN(X/20) +COS(Y/10) ) &3.5) +17 

2176 IFZ=1THENDEFFNA (Z)=INT (ABS (EXP (X/30) +SIN(Y/20) ) &2.2) +17 

2177 IF Z=2THENDEFFNA(Z) =INT (ABS (SIN(X/40) +SIN(Y/60) ) 84.5) +17 

2180 FORX=0TO19:FORY=0TO99 

2190 A=19+X:B=99+Y:C=19-X: D=99-Y 

2200 N=FNA(Z) 

2210 CURSETAS4,B,1:FILL1,1,N:CURSETC#4,D,1:FILL1,1,N 

2220 CURSETA%4,D,1:FILL1,1,N:CURSETC%46,B,1:FILL1,1,N 

2230 NEXT:NEXT 

2250 DUM$="NOCTURNE": Z=Z+1:ES=S: EP=Z%10: GOSUBS61000: WAITS00: UNTILZ=3 
2255 CALL#E4CA 

2260 CURSETO,0,90:FILL190, 40,16 

2261 CURSETO, 190, O:FILL10, 40, 64 

2262 CALL#E46CA 

2265 DUM$="This will take some time": XP=15: YP=190: GOSUB460000 

2270 H=234: V=198: X1=H/2: X2Z=X1 4X12 V1I=V/2: Y2=V/4 

2280 FORX=OTOX1: X4=XaX:L=-Y1 

2290 A=SOR (X2-X4) : FORI=-ATOASTEPV/10 

2300 R=SOR(X4+IaI)/X1 

2310 F=SIN(R&3) 

2320 Y=I/5+F4Y2: IFY<=LTHEN2360 

2330 L=Y¥:Y=Y1-Y 

2340 IF(X1-X) /6=INT((X1-X) /&) THENCURSETX1-X,Y, 3:FILL1, 1, INT(RND(1)%7)+17 
2350 IF (X1+X)/S=INT ( (X1+X) /6) THENCURSETX1+X, Y, 3:FILL1,1, INT (RND(1) 7) +17 
2360 NEXTI,X 

2370 CALL#E804 

2380 WAIT1000 

2400 DATANOCTURNE, 3,4,3,4,5,4,1 

2410 DATA3,4,3,4,3,4,1 

2420 DATAG, 3, 3.35 1,5525 185541 Schl ,3e3 

2430 DATAI0,3,4,3,11,2,.5,11,5,4,3,11,2,.5,8,3,8,3,8,1,1,10,3,10,3,10,35, 1 
2440 DATAI1,3,3,3,11,2,.5,1,4,3,3,11,2,.5,35,4,3,4,8,1,1,9,4,8,4,9,4,1 


2A5O DATAG, 4, by 4, 10, 1, 156, 4545 35 1535 1555 4,654, 6,4, 1 
24S0 DATAG, 4,654, 10, 1,145.44 45 35 by 351545456, 4,6,4,1 
2A7O DATAG, 4, 45351535155 45054410514 1565456545554, 1 
2480 DATA3,4,3,4, 11,1, 1,344, 3,3, 15 2,155, 54s 3e451 
2490 DATAI,4, 4,3, 9,2, 1, 1,4, 1, 4,8, 2, 1, 3e450,2, 11, t,1 


$s 
s 
2500 DATAS, 3, 11,2565 25253545 354535451 
2510 DATAI,4.4, 3495 2525 3e4y Sy 4q 35451 


2520 DATAL1, 341,35 75 2p ly ily lq hlq4y1y151,354,3,4,11,1,1 

2550: DATAI0, 3,1 oSs Fy Bel is la Be ty By Ls Bay Sy Su4g Se lat 

2540 DATAS, 3, 11,2,3,2, 1,8, 3,8, 1,8,1,1,1153,11,3, 11,351 

2550 DATAI0, 3, 4,3, 1,3, «5, 11,35 4,351,35-559, 3, 8,1,8,1,1, 16,3, 10,3,8,1,1 
2560 DATAS, 3, 3, 3,8, 2, 3,0,0,0,0,0,0,0 

2570 DATAGOBLET, 50, 0,50, 10,5, 10,5, 40, 40, 40, 75, 100, 65, 100, 30, 45, 0, 45 


2600 HIRES: POKE418, 10 

2605 PRINT"Watch this then,it takes time to draw";CHR$(4); 
2606 PRINT" "CHR$(27) "J THE GOBLET"CHR$ (4) 

2610 DEFFNX(X)=((X+150) &. 746875) -PEEK (537) sREM ABSOLUTE PLOTTING 
2620 DEFFNY (Y)=(199-( (Y+50) 41. 03645833) ) -PEEK (538) 

2625 RESTORE: REPEAT : READA$: UNT ILA$="GOBLET” 

2630 FOR@=1TO9 

2640 READX(@), Y(@) 

2650 NEXT@ 

2 B=55 

2670 INK3:CALL#E46CA 

2680 ZAP 

2690 FORC=1TO9 13 


2700 A=1 
2710 FORD=0TO7. 854STEP6. 283/B 
IFA=1 THENCURMOVFNX (X (C) COS (D) ) ,FNY (Y(C) +X (C) 80. 28SIN(D)),1 


2721 Q=FNX(X(C) sCOS(D) > 


IFQ>—-1AND@X< 1 ANDW>—-1ANDW< 1 THEN2730 


sW=FNY (Y(C)+X(C) &. 28SIN(D) ) 


IFA=2THENDRAWFNX (X (C) COS (D)) , FNY (Y(C)+X(C)&. 28SIN(D)),1 
2730 A=2 


IFC=1 THENNEXTD,C 


27350 CURMOVFNX (X (C-1) 8COS{(D) ) ,FNY(Y (C-1) +X (C-1) &. 28SIN(D)), 1 


2751 Q=FNX(X(C) SCOS(D)) 


IFQ>—1ANDQ< 1ANDW>-1ANDW< 1 THEN2770 


sW=FNY (Y(C)+X(C) &. 28SIN(D) ) 


2760 DRAWFNX (X(C) 8COS(D)), FNY (Y(C)+X(C) &. 28SIN(D)),1 
2770 NEXTD,C: 
2780 DUM$="Eat your heart out Tansoft": XP=30: YP=0: GOSUB4S0000: CALL#E804 
2790 DUM$="MINUET": ES=1:EP=7000: GOSUB461000 
2800 DATAMINUET, 12, 3,8, 3,8, 3, «75,12, 3,8, 3,8, 35-755 1,4, 10,3, 10,3,.25 


2810 DATA3, 4,12, 3,8, 1575, 254511, 3,8, 1, «25, 344,12, 3,12, 1, «75,5 1,4, 10, 3,12, 1,225 
2B15 DATAS, 4, 12,3, 352, «755154, 10,3535 25-25 

2B20 DATAS, 4,12, 3,8, 25 143545125358, Ly 1555 4515451545 « 755 12, 3595359535225 

2830 DATA1, 4, 10,3, 3, 2,141, 4,10, 353414 15354, 125 35 12,3, «755510, 3475357535225 

2840 DATAL2, 3,8,3,8,1,1, 10,0, 10,0, 10,0,1,8,3, 12, 2,12,2, -75, 10,3 3, 3,3, 39<25 
2850 DATA12, 3,9, 3,8, 1,75, 11,3, 75358, 1, «25, 12, 35 8, 3412, 1, 675, 11,35 753512, 1,-25 
2B55 DATA12, 3,8, 354525 «755 1153575354, 25-25 

2890 DATA12, 3,8, 355552, 1, 12, 3,8, 35 7425 14.10, 35 75358, 2 05,853, 553,8,2, 65 

2900 DATAG, 3,55 3510, 25 055 75 34 Bq Bq 105 2y w Sy 74 By 3g 35 By By 0 3g 10,35 75 3455 3505 

2905 DATAB, 3,5, 341041, «5g 55g 35 25 By 105 15 2 5y Sy 3435 35 3q 2y ly Sq hy 3y 1,351, 

2906 DATAO, 0,0,0,0,0,0 


2910 WAIT1000 
3000 HIRES: FILL200, 40, 16: PRINTCHR$ (4) 


3010 PRINT" "“CHR$(27) "J 


3015 Z=0: REPEAT 
3020 X=INT (RND(1) 940): Y=INT (RND (1) &200) 
3030 A=INT (RND (1) #100) +1: B=INT (RND(1) 820) +1 


IFX+B>400RX+BX 1 THENSO020 
IFY+A>1990RY+A< 1THENSO30 


3060 COL=INT(RND(1)%7)+1 
3070 SOUND1, Y8A, 0: SOUNDS, X#B, 0: PLAY1, 2, COL, (Y8X) +(ASB) #(COL/2) 
3080 CURSETX%6, Y, 3:FILLA,B,COL+16 
3090 WAIT50: Z=Z7+1:UNTILZ=100 
4000 WAIT100:PLAYO, 0, 0, 0: RUN 


61080 


END 
PING: PLAY1,0,3, 750 
GOTOS9999: REM &SUBR’ St 


CURMOV7, 0, 3: NEXT: RETURN 
RESTORE: REPEAT: READA$: UNT ILA$=DUM$: 
READNi, 01,N2,02,N3,03,D 


MUSIC1,01,Ni,0:MUSIC2, 02,N2, 0:MUSIC3,03,N3, 0 


PLAY7,0,0,0 


REPEAT: READNI, 01,N2,02,N3, 03, D: IFN1=OTHEN61070 
MUSIC1,01,Ni,0:MUSIC2,02,N2, 12:MUSIC3, 03,N3, 14: PLAY7,0,ES, EP 


WAITD#32 

UNTIL N1=0 
MUSIC1,3,1,1 
PLAYO, 0, 0, 0: RETURN 


Another Showing Follows"CHR$ (17) CHR$ (4) 


0 CURSETXP, YP, 3: FORZP=1 TOLEN (DUM$) : CHARASC (MID$ (DUM$, ZP,1)),0,1 


ALLAPHONE DEMONSTRATION PACKAGE 


% ALLOPHONE % 
% = =DEMONSTRATION z 
M$ PACKAGE % 
% % 


6 REM & * JMB SOFTWARE 1984 & 
7 REM & % 
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100 
110 


REM % ALLOPHONES % 
E$=CHR$ (27) : D$=CHR$ (4) : Q$=CHRS (17) : C$=CHRS$ (20) s F$=CHRS (5) : GS=">" 
GOSUB200: PRINTC$0$: GOSUBS600: GOSUB300 
REM % MENU 4% 
CLS:PRINTSPC (30) "menu":PRINTE$S"V"DSE$"J"ES"D ALLOPHONE CODES"D$ 
PRINT: PRINTE$S"V"E$"A PAGE VOICE": PRINT 
PRINT" c¢) Silence":PRINT 
1 Short Vowels":PRINT 
PRINT" 2 Long Vowels“:PRINT 
3 R-Coloured Vowels":PRINT 
PRINT" 4 Resonants":PRINT 
PRINT" 3 Voiced Fricat”:PRINT 
PRINT" & Voiceless Fricat”:PRINT 
PRINT" 7 Voiced Stop Cons.":PRINT 
PRINT" 8 Voiceless Stop Cons.":PRINT 
PRINT" 9 Affricate & Nasal" 
POKE#268, 25: PRINT: PRINTES"V"ES"L"E$"GEnter Page No."; 
GETA$: IFA$="q" THENPRINTO$C$: END 
IFASC (A$) <48DRASC (A$) >S7THENI70 
A=1+VAL (A$) : ONAGOTO1000, 1100, 1200, 1300, 1400, 1500, 1600, 1700. 1800, 1900 
END 
REM & SET UP ARRAY & 
DIMALZ (10,10) 
FORW=0TO9: FORX=0TO9? 
READALZ (W, X) 
NEXTX, W: RETURN 
DATAO, 1,2,3,4,0,0,0,0,0, 12, 7,26, 30,23, 15, 24,0,0,0, 19, 20,6,5, 22,351,535, 32 
DATAS2, 0,51,52, 58,59, 60, 47,0,0, 0,0, 46, 14, 39, 45, 49, 25, 0,0,0,0, 35, 18,54, 45 
DATAS8, 0,0,0,0,0, 40, 29,55, 37, 27,57, 48,0,0, 0, 28, 63, 21,33, 36,61,34,0,0,06 
DATA, 17,13, 42,41,8,0,0,0,0,50, 10,0, 16, 11,56,44,0,0,0 
REM * OPENING REMARKS & 
CLS: PRINTES"U" 
PRINTDSES"U"ES"D"ES"JNOTES FOR THE USE OF THIS PROGRAMME"D$ 
PRINT: PRINTE$"U"E$" @--—---—---——--————--------------------— a 
PRINT:PRINT" The programme is MENU driven and" 
PRINT" provides a listing of all the " 
PRINT" ALLOPHONES available with the Kenema" 
PRINT" Associates Ltd. speech synthesiser,”" 
PRINT" together with their enunciation," 
PRINT” duration and CHR$S code." 
PRINT:PRINT" To use the synthesiser with your" 
PRINT" GRIC-1 or ATMOS, connect it to the" 
PRINT" CENTRONICS parallel port via a 20 way"; 
PRINT" cable. Power the board with between" 
PRINT" 9 and 12 volts dc." 
PRINT 
PRINT" To drive the board from your own" 
PRINT" programmes, a command in the form of" 
PRINT" LPRINTCHR$(%)::PRINTCHR$(11) * 
PRINT" is required. & is the CHR$ code" 
PRINT" given in this programme." 
PRINT:PRINT:PRINTES"V"ES$"G"E¢"LPress"E$"Hany key to continue" 
GETA$: RETURN 
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REM * OPENING SEQUENCE % 

CLS: INK1:PAPERO:PLOT15, 9, "ALLOPHONE" 
PLOT13, 11, "DEMONSTRATION" 
PLOT16, 13, "PACKAGE" 

PLOT10,17,"* JMB SOFTWARE 1984" 
FORL=5TOS3STEP2:PLOTL, 21, "8" :NEXT 
FORL=19TOSSTEP-2:PLOT33,L, "#":NEXT 
FORL=31 TOSSTEP-2:PLOTL, 5, "8" NEXT 


670 FORL=7TO23STEP2:PLOTS,L, "&" NEXT 

680 FORL=7TO35SSTEP2:PLOTL, 23, "%":NEXT 

690 FORL=21 TO3STEP-2:PLOTS5S,L, "S"=NEXT 

700 FORL=33TOSSTEP-2:PLOTL,3, "&"sNEXT 

710 FORL=STO25STEP2:PLOTS,L, "&"sNEXT 

720 FORL=STO37STEP2:PLOTL, 25, "&":NEXT 

730 FORL=23TO1ISTEP-2:PLOT37,L, "#"=NEXT 

740 FORL=35TO1ISTEP-2:PLOTL,1, "8": NEXT 

750 FORL=3TO2SSTEP2:PLOT1,L,"8"sNEXT 

760 PING: WAIT1000: INKO: PAPER6: RETURN 

899 REM & SCREEN FORMATS & 

900 PRINTES"V"DSES$"J"ES"D ALLOPHONE CODES"D$:PRINT:RETURN 
910 PRINTES"V"ES"H"ES"A CODE ENUNCTAT ION PERIOD CHR$"“:PRINT: RETURN 
998 END 

999 REM & page O % 

1000 CLS:PRINTSPC (30) "page 0":GOSUB900 

1010 PRINTSPC(12)"(Silence) "s: PRINT: GOSUB910 

1020 PRINT" /PAI/ PAUSE 10mS O”:PRINT 
1025 PRINT" /PA2/ PAUSE 30S 1":PRINT 
1030 PRINT" /PA3/ PAUSE S0mS 2":PRINT 
1035 PRINT" /PA4/ PAUSE 100mS *3":PRINT 
1040 PRINT" /PAS/ PAUSE 200mS 4":PRINT 
1050 IFP=1THENGOTO3010 

1060 60TO2000 

1099 REM & page 1 4% 

1100 CLS:PRINTSPC(30) "page 1":GOSUB900 

1110 PRINTSPC(10) "(Short Vowels) ":PRINT: GOSUB910 

1120 PRINT" %&/IH/ SiT 70mS 12":PRINT 
1125 PRINT" %/EH/ eND 70mS 7":PRINT 
1130 PRINT" &/AE/ HaT 120mS 26": PRINT 
1135 PRINT" %&/UH/ Book 100mS 30":PRINT 
1140 PRINT" &/AO/ auGHT 100mS = 23":PRINT 
1145 PRINT" &/AX/ SuCCEED 70aS 15":PRINT 
1150 PRINT" %/AA/ HoT 100mS) = «s- 24": PRINT 


1160 PRINT" &-Multi call gives continuous sound" 


IFP=1THENGOTO3010 
GOTO02000 
REM * page 2 % 


1200 CLS:PRINTSPC(30) "page 2":G0QSUB900 
1210 PRINTSPC(10)"(Long Vowels) “:PRINT: GOSUB910 


1220 PRINT" S1Y/ See 250@5 19":3PRINT 
1225 PRINT" /EY/ BeiGE 280aS 20":PRINT 
250 PRINT" /AY/ SKy 2600S 6":PRINT 
1235 PRINT" /DY/ Boy 420mS o°sPRINT 
1240 PRINT" /UW1i/ To 100mS 22"3PRINT 
1245 PRINT" /UW2/ To 260mS 31":sPRINT 
1250 PRINT" /OW/ Beau 2400S 33":PRINT 
1255 PRINT" /AW/ ouT 370mS 32": PRINT 
1260 PRINT" /EL/ SADDle 190mS 62": PRINT 


1270 IFP=1THENSO10 
1280 GOTO2000 


REM & page 3 & 
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1300 CLS:PRINTSPC (30) "page 3": 60SUB900 

1310 PRINTSPC(7)“(R-Coloured Vowels) ":PRINT:GOSUB9I10 
1320 PRINT" /ERI/ Fir 160mS 5i":PRINT 
1325 PRINT" /ER2/ Ss Fir 300mS S32":PRINT 
1330 PRINT" /OR/ STore 330maS 58":PRINT 
1340 PRINT" JAR/ ALarM 290mS 59":PRINT 
1345 PRINT" /YR/ CLear 350mS 60":PRINT 
1350 PRINT" /XR/ REPair 360aS 47":PRINT 
13460 IFP=1THEN3S010 

1370 60T02000 

1399 REM & page 4 & 

1400 CLS:PRINTSPC (30) "page 4":GOSUB900 

1410 PRINTSPC (12) " (Resonants) ":PRINT:GOSUB910 

1420 PRINT" /Ww/ wOOL 180mS 46":PRINT 
1425 PRINT" /RR1/ r URAL 170mS 14":PRINT 
1430 PRINT" /RR2/ BrAIN 120mS) 339": PRINT 
1435 PRINT" /ULL/ 1AKE 110mS) 45":PRINT 
1440 PRINT" /YY1/ yES 130mS 49":PRINT 
1445 PRINT" /YY2/ yES 180mS) = s- 25": PRINT 
1450 IFP=1 THENGOTO3010 

1460 GOT02000 

1499 REM & page 5 % 


1500 CLS:PRINTSPC(30) “page 5": GOSUB900 

1510 PRINTSPC(9)"({Voiced Fricat.)"“:PRINT: GOSUB910 

1520 PRINT" /VWV/ vEST 190mS = 35": PRINT 
1525 PRINT“ /DHi/ —s thEY 290mS 18":PRINT 
1530 PRINT" /DH2/ Ss th IN 120mS) 54": PRINT 
1535 PRINT" 42z/ 200 210mS = 43":PRINT 
1540 PRINT" /ZH/ Az URE 190mS = 38": PRINT 
1550 IFP=1THEN3010 

1560 GOTO2000 

1599 REM & page & % 


1600 CLS:PRINTSPC (30) "page 6":GOSUB900 

1610 PRINTSPC(7)"(Voiceless Fricat.)":PRINT:GOSUB910 
1620 PRINT" %&/FF/ #00d 150mS 40":PRINT 
1625 PRINT" &/TH/ thIN 180mS) = =29"sPRINT 
1630 PRINT" &/SS/ VEsT 90mS) = S5"sPRINT 
1635 PRINT" /SH/ shIF 160mS =: 37": PRINT 
1640 PRINT" /HH1/ hE 130mS = 27":PRINT 
1645 PRINT" /HH2/  =hOE 180mS) = 557" PRINT 
1650 PRINT" /WH/ whIG 200mS = 48": PRINT 
1655 PRINT" &%-Multi call gives continuous sound” 

1660 IFP=1THEN3S010 

1670 GOTO2000 

1699 REM & page 7 & 

“1700 CLS:PRINTSPC(30) "page 7":GOSUB900 


1710 PRINTSPC(7) "(Voiced Stop Cons.)":PRINT:G0SUB910 


1720 PRINT" /BEi1/ bUSINESS (soft) SOmS 28":PRINT 
1725 PRINT" /BB2/  bUSINESS SsOmS 63":PRINT 
1730 PRINT" /DD1/ = COULd 7OmS = 21":PRINT 
1735 PRINT" /DD2/ dO 160mS 33":PRINT 
1740 PRINT" /G61/ QUEST 80mS = 36":PRINT 
1745 PRINT" /GG2/— gQT 50mS 61": PRINT 
1750 PRINT" /G63/ ss WIg 160mS) =. 34": PRINT 
1760 IFP=1THEN3010 

1770 60TO02000 

1799 REM & page 8 % 


1800 
1810 
1820 


CLS:PRINTSPC (30) "page 8":GOSUB900 
PRINTSPC(6)"(Voiceless Stop Cons.)“:PRINT:GOSUB910 


PRINT" 


/PP/ 


pow 210mS5 
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9" PRINT 


1825 
1830 
1835 
1840 
1845 
1850 
1860 
1899 
1900 
1910 
1920 
1925 
1930 
1935 
1940 
1945 
1950 
1940 
1970 
2000 
2010 
2020 
2030 
2040 
3000 
3010 
3015 
30206 
3025 
3030 
3035 
3040 
3050 
3060 
3070 
3080 
3085 
3090 
3099 
3100 
3110 
3120 
3130 
3199 
3200 
3210 
3220 
9998 
9999 


PRINT" /TT1i/—s PARt 100aS 17":PRINT 
PRINT” /TT2/ to 1400S 13":PRINT 
PRINT" /KK1i/ cAN’T 160mS 42":PRINT 
PRINT" /KK2/ = SkY 190mS 41":PRINT 
PRINT" /KK3/ cOMB 120mS 8":PRINT 
IFP=1 THEN3S010 

GOTO2000 

REM * page 9 % 


CLS: PRINTSPC(30) "page 9":60SUB900 


PRINTSPC (12) "(Affricate) ":PRINT: GOSUB910 

PRINT" /CH/ chURCH 190mS 50": PRINT 
PRINT" /JH/ DOdgE 140mS 10":PRINT 
PRINTSPC (14) " (Nasal) ": PRINT 

PRINT" /MM/ ss mILK 180mS 16":PRINT 
PRINT” /NN1/ THIn 140mS 11":PRINT 
PRINT" /NN2/ No 190mS 96":PRINT 
PRINT" /NG/ AnCHOR 220mS 44": PRINT 
IFP=1THEN3S010 

GOTO2000 

POKE#268, 25:PRINT:PRINTES"V"E$"D"E$"LPress"E$"HM for MENU, P for PLAY” 


GETA$: IFA$="q" THENPRINTO$C$: END 

IFA$="p" THENP=1 : GOSUB3000 

IFAS< >"m" THEN2010 

GOTO40 

CLS: ONAGOTO1010, 1110, 1210, 1310, 1410, 1510, 1610, 1710, 1810, 1910 
POKE#269, 23: PRINT: PRINTF$; 

PRINTES$S"V"E$"H"E$"EPosition “E$"@>"E$"Gon line of sound” 
PRINTES"V"E$S"G"E$"LPress  "E$"H"ES"QU"E$"Gfor UP,"; 
PRINTE$"@D"E$"Gfor DOWN" 

PRINTES"V"E$"2"E$"H P"E$"Gfor PLAY," 
PRINTE$"@M"E$"Gfor MENU" 

R=10:PLOT1, 10, 6% 

GETA$: IFA$="m" THENP=0: PRINTF$: GOTO40 

IFA$="u" THENGOSUB3100 

IFA$="d" THENGOSUB3 120 

IFA$="p" THENGOSUB3200 

IFA$="q"THENPRINTQ$C$F$: END 

GOTO3050 

REM # MOVE POINTER ROUTINE % 

IFR-1 >STHENPOKE#268, R:PRINT:PRINT" “:R=R-2:POKE#268, R: PRINT: PRINTG$ 
RETURN 

IFR+1<23THENPOKE#268,R:PRINT:PRINT" ":R=R+2:POKE#268, K: PRINT: PRINTGS$ 
RETURN 

REM * PLAY SOUND ROUTINE % 

IF (R-4) /2¢ DINT ( (R—-4) /2) THENS220 

LPRINTCHR$ (AL%(A-1, INT ( (R-4) /2) ) ) CHR$ (0) 3 s PRINTCHR$ (11) 
RETURN 

END 

REM # LLIST ROUTINE % 


10000 E$=CHR$ (27) : POKE#31,93:CLS:PRINT:PRINT"Set paper to Top Of Form" 
10010 PRINT:PRINT“Swich on PRINTER": PRINT:PRINT 

10020 INPUT"ENTER form length 11 or 12 inch ";A$: IFA$="11"THEN1OO50 
10030 IFA$<>"12"THEN10020 

10040 LPRINTES$"C"CHR$ (0) CHRS (12) 5 

10050 LPRINTE$"1"E$"N"CHRS (12) E$"Q"CHRS$ (BO) ; 

10060 LPRINTCHR$(14)" AL L OF HONE S"sLPRINT:LPRINT:LPRINT 

10070 CALL#E46CA:LLIST:LPRINTCHRS$ (7) CHR$ (140) : CALL#22R 
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MEMBERSHIP DATA BASE 


Colin Coker_ 


This program is designed to allow you to keep a all names and addresses for labelling envelopes etc. 
record of people’s name and addresses and would be Firstly you create a file of members by entering their 
very useful if you are the organiser of a club or some name, address and postcode. You may have up toa 
sort of group. You might also use it as an Address hundred names and addresses in one file. This may 
book to keep the names and addresses of your be added to or members deleted as required. Sorting 
friends and relatives. Simply by changing the will allow you to keep the lists in alphabetical order, 
headings in certain places to your name, or the name and of course the save and load routines are a boon 
of your ciub or group you may personalise it to suit to the Oric owner.By modification to the Save and 
your own needs. It allows the saving and loading of Load routines to use the Store and Recall commands 
data to and from tape, the sorting of names and the program will work with the Atmos. 


addresses into alphabetical order, and a printout of 


Oo P 
oR 
6 R 


ING 

EM ORIC-1 MEMBERSHIP PROGRAM 

EM BY COLIN COKER 
REMESRSSSSTE RARER ATTA RARE ES 

REM MENU 
REMESETSRT TERRE TERRE ERAT AEA TS 

DIMN$ (100) ,A1$ (100) ,A2$ (100) ,A3$ (100) ,PC$(100) 
N¢(100)=" END" 


CLS 
PRINT:PRINT” LINCO ADDRESS-BASE":FORZ=1TOS: PRINT:NEXTZ 
PRINT"1. Create File" 


PRINT"2. Alpha Sort” 

PRINT"S. Add Member" 

PRINT"4. Delete Member" 
PRINT"S. Search" 

PRINT"&S. Output to Printer" 

PRINT"7. Save File" 

PRINT"8. Load File" 

PRINT"9. End" 

PRINT: PRINT:PRINT:PRINT"“ENTER OPTION REQUIRED" 
GETZ$: IFVAL (Z$) >9THEN130 

CLS 

ONVAL (2%) GOSUB1 000, 2000, 3000, 4000, 5000, 6000, 7000, 8000, 200 
GOTO25 

REMSSSESSE ERT ARATE TES 

REM END ROUTINE 

REMSSSS Se ee eae a RSET R RARE TS 

PRINT: PRINT:PRINT"NEW FILE SAVED ? -ENTER Y/N" 


GET 2%: IFZ$="N" THENRETURN 
Oo CLS: END 
O REMESSRSKST EATS ARETE TART TERETE 


Q REM CREATE FILE 

© REMSSSSEae Sea K TE ATA ETE as 

QO PRINT: PRINT:PRINT"Each entry must consist of” 
QO PRINT:PRINT"NAME" 

QO PRINT"ADDRESS" 

O PRINT"ADDRESS" 

Q PRINT"ADDRESS" 

© PRINT"POST CODE" 


00 PRINT:PRINT:PRINT"Any blank line must have ’&’ entered” 
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1105 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1210 
1220 
1230 
1240 
1250 
12460 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
2000 
2010 
2020 
2025 
2030 
2040 
2050 
2060 
2070 
2086 
2090 
2091 
2092 
2093 
2094 
2100 
2110 
2120 
2130 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3085 
3090 
3100 
3105 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 


PRINT:PRINT:PRINT“Enter END to return to menu" 
PRINT:PRINT:PRINT:PRINT"Hit SPACE to continue" 
GETZ$: IFZ$<>" “THENRETURN 


C=1 

CLs 

PRINT“ENTRY “3C;" of 100" 

PRINT: PRINT “NAME “3; : GOSUB10000 
N$ (C)=KE$: PRINT 


IFN$(C)=" END" THENRETURN 

PRINT"“ADDRESS "; :GOSUB10000 

A1$(C)=KES: PRINT 

PRINT"ADDRESS "3 > GOSUB10000 

A2$ (C) =KE$: PRINT 

PRINT"ADDRESS "; sGOSUB10000 

A3$ (C) =KE$: PRINT 

PRINT"POSTCODE ";:GOSUB10000 

PC$(C)=KE$: PRINT 

PRINT:PRINT:PRINT"Correct ? Y/N" 

GETZ$: IFZ$="N" THEN1140 

C=C+1 

IFC=100THENPRINT:PRINT"FILE FULL Hit SPACE to return to menu":GETZ$: RETURN 
GO0T01140 

REMORSSSRSRASA ERATE RTARTA 

REM ALPHA SORT 
REMSMSSERESR RARER R EERE EAE ERT EE 

CLS: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT" SORTING" 
C=1 

IFN$(C)=" END" THENN=C-1: G0TO2060 

C=C+1:G0T02040 

FORK=1TON-1 

FORL=K+1 TON 

JFN#(L) >=N$ (K) THEN2100 

Z$=N$ (L) = N$ (L) =N$(K) SNS (KD =ZE 
Z$=A1$(L) SAIS(L) =AL$ (CK) FALS (KD =ZS 

Z$=A2$ (L) :A2$ (L) =A2$ (K) 2 AZS$ (K) =Z% 

Z$=A3$ (L) 2 A3$ (L) =A3$ (K) SASS (K)=ZS 

Z$=PC$ (L) : PC$(L)=PCS (kK) s PCS (K) =Z$ 

NEXTL 

NEXTK 

CLS: PRINT:PRINT:PRINT:PRINT” FILE SORTED" 
PRINT: PRINT: PRINT: PRINT: PRINT"Hit SPACE to return to menu": GETZ¢: RETURN 
REMORSE SSER OEE E RATATAT ESS 


REM ADD MEMBER 
REMSaRESERER SERA EATER TEE TS 
CLS 

C=1 


IFN$(C)=" END" THENS070 

C=C+1:60T03050 

IFC=100THENPRINT"FILE FULL Hit SPACE to return to menu": GETZ$: RETURN 
N$(C+1)=" END” 


CLS 

PRINT"Entry "3C3" of 100" 
PRINT 

PRINT "NAME "; :GOSUB10000 


N$ (C) =KE$: PRINT 
PRINT"ADDRESS ";:60SUB10000 
A1$(C)=KE$: PRINT 
PRINT"ADDRESS ";:GOSUB10000 
A2$ (C) =KE$: PRINT 
PRINT"ADDRESS "5; :GOSUB10000 
ASS (C) =KE$: PRINT 
PRINT"POSTCODE “;:GOSUB10000 
PCS (C)=KE$: PRINT 
PRINT:PRINT:PRINT:PRINT"Correct 2? Y/N" 
GETZ$: IFZ$="N" THENSO8S 


RETURN 20 


4000 REMESERREREAASAAT AAA ET ETAT TES 

4010 REM DELETE MEMBER 

4020 REMESERSAATAERERE STRATE TATA es 

4030 CLS:PRINT:PRINT"ENTER MEMBER TO DELETE” 

4040 PRINT:PRINT"Must be exactly as stored" 

4050 PRINT: PRINT"> "; =: GOSUR10000 

4060 Z$=KE$ 

4070 C=1 

4080 IFN$(C)=Z$THEN4110 

4090 IFN$(C)=" END" THENPRINT:PRINT:PRINTZ$;" not in file":WAIT200: RETURN 
4100 C=C+1:G60T04080 

4110 N$(C)=N$(C+1) :A1$(C) =A1$(C+1) 2A2Z$ (C) =A2Z$ (C+1) sAS$(C) =A3$(C+1) 
4120 PC$(C)=PC$(C+1) 

4130 C=C+1: IFC=100THENCLS: PRINT:PRINTZ$;" deleted":WAIT200: RETURN 
4140 GOTO4110 

SOOO REMESERSAREEREAESA ARRAS TARTS 


5010 REM SEARCH 

S020 REMERKERERERETER AERA ATER TEAS 
9030 C=1 

5040 CLS 


5050 PRINT: PRINT: PRINT"ENTER GROUP TO FIND IN NAME FILE" 
5060 PRINT: GOSUB10000 

5070 GP¢=KES 

5080 L=LEN(GP$) 

S085 IFN$(C)=" END"THEN RETURN 

5090 FORK=1TO(LEN(N$(C) )-L+1) 

5100 IFGP$=MID$ (N$(C) ,K,L) THENS130 


5110 NEXTK 

5120 C=C+1:GOTO5085 

5130 CLS 

5140 PRINT: PRINT "NAME "SN$(C) 
5150 PRINT"ADDRESS ";A1$(C) 

51460 PRINT" "SA2$(C) 
5170 PRINT" "SASS (C) 

5180 PRINT" ";PC$(C) 


5190 PRINT:PRINT: PRINT: PRINT"Hit SPACE to continue search": GETZ$:C=C+1:GOTO5085 
6000 REMESESRETSATAT TATRA ATES S 
6010 REM OUTPUT TO PRINTER 

6020 REMESTEETRES ERAT AAA ATA TE 
6030 CLS: FORZ=1TOS: PRINT: NEXTZ 

6040 PRINT"1. OUTPUT MEMBERSHIP LIST" 
6050 PRINT 

6060 PRINT"2. OUTPUT LABELS" 

6070 FORZ=1TO5:PRINT:NEXTZ 

6080 PRINT"ENTER OPTION REQUIRED” 
6090 GETZ$: IFVAL (27%) >2THENSO90 

6095 CLS: ONVAL (27%) GOTO9000, 9500 


6100 RETURN 
7OOO REMESSERAATTEA ARTETA TATE Ts 
7010 REM SAVE FILE (ORIC) 


7OLZO REMESKARAEATETE RTRs 

7030 CLS:PRINT:PRINT"“ INSERT DATA TAPE AND PRESS RECORD" 
7040 PRINT:PRINT:PRINT:PRINT"Hit SPACE when ready” 

7050 GETZ$:CLS 

7060 CSAVE"POINTERS", A#9E, E#A7 

7070 CSAVE"DATA ONE", ADEEK (#9C) , EDEEK (#A0) 

7080 CSAVE"DATA TWO", ADEEK (#A2) , EDEEK (#A6) 

7090 PRINT:PRINT:PRINTTAB(25) “DATA SAVED" 

7100 WAIT200: RETURN 

BOON REMSRESTAESATE AAAS AEA TS 

8010 REM LOAD FILE (ORIC) 

BO20 REMESSSSSSESAATA SATE ETERS 

8030 CLS:PRINT:PRINT" INSERT DATA TAPE“:PRINT:PRINT:PRINT"Hit SPACE when ready”; 
8040 PRINT" then PLAY on" 

8050 PRINT:PRINT"recorder " 

8060 GETZ$:CLS 21 


8070 
8080 
8090 
8100 
8110 
9000 
9010 
9020 
9025 
9030 
9040 
9050 
9055 
9060 
9076 
9072 
9075 
9080 
9090 
9100 
9110 
9120 
9500 
93510 
9520 
9530 
9546 
9550 
9560 
9570 
9571 
9572 
9575 
9580 
9590 
9600 
9610 
9615 
9620 
9630 
9640 
9650 
9660 
9670 
9680 
9690 
9700 
9710 
9720 
9730 
9740. 
97350 


CALL#E725"POINTERS" : CALL #E46CA: CALL #E4A8: CALL #E804 
CALL#E725"DATA ONE": CALL #E6CA: CALL #E4A8: CALL #E804 
CALL#E725"DATA TWO": CALL #E4CA: CALL#E4A8: CALL #E804 
PRINT: PRINT: PRINTTAB(25) “DATA LOADED" 

WAIT200: RETURN 

REMSSESSESTAEAA ATA SRE TATA ss 

REM OUTPUT MEMBERSHIP LIST 
REMSSIESTEAASATA TATA AAA ATTA TS 

POKE#31, 109 

PRINT:PRINT"ENTER DATE ";:GOSUB10000 

DAS=KE$ 

CLS 

CALL#F439 

LPRINTCHR$ (27) ; CHRS$ (64) ; CHR$ (27) ; CHR$ (80) ; CHR$ (2) 
LPRINT“TORBAY AMATEUR RADIO SOCIETY MEMBERSHIP LIST" 
LPRINT 

LPRINTDAS 

LPRINT:LPRINT:LPRINT 

C=1 

IFN$(C)=" END" THENCALL #E804: RETURN 

LPRINTNS(C)5" “sAIS(C)5" "SAZS(C)s" "SASS(C)3" “3sPC$(C) 
C=C+1:G60T09100 

REMSSSSSSSS STATA TAA TETAS 

REM OUTPUT LABELS 
REMSSSERARSES ESATA AAA AEA TE 

POKE#31, 109 

CLS 

PRINT:PRINT"ENSURE PRINTER LOADED WITH LABELS AND" 
PRINT"TYPE HEAD POSITIONED LEVEL WITH TOP" 
PRINT"OF LABEL, AND PRINTER SET ON-LINE” 

PRINT: PRINT: PRINT 

PRINT"Press SPACE when ready":GETZ$:CLS 

CALL#F439 

LPRINTCHR$ (27) ; CHR$ (464) 

LPRINTCHRS$ (27) ; CHRS$ (68) ; CHR$ (3) 5 CHRS (35) 5 CHRS (00) 
LPRINT:LPRINT:LPRINT:LPRINT:LPRINT:LPRINT:LPRINT 
C=1 

IFN$(C)=" END" THENCALL #£804: RETURN 

IFN$ (C+1)=" END" THEN9700 
LPRINTCHR$ (09) ,N$(C) , CHRS (09) .N#(C+1) 

LPRINTCHRS (09) ,A1$(C), CHR (09) ,AI$(C+1) 
LPRINTCHRS$ (09) ,A2$(C) , CHRS (09) ,A2$(C+1) 
LPRINTCHR$ (09) ,A3$(C) , CHRS (09) ,A3S$(C+1) 
LPRINTCHR$ (09) , PC#{(C) , CHRE (09) ,. PC$(C+1) 

LPRINT: LPRINT:LPRINT:LPRINT:REM ENGUGH TO START OF NEXT LABEL 
C=C+2:6CTO9615 

LPRINTCHR$ (09) ,.N$(C) 

LPRINTCHR$ (09) ,A1$(C) 

LPRINTCHR$ (09) ,A2$(C) 

LPRINTCHR$ (09) ,A3${C) 

LPRINTCHR$ (09) , PC${C) 

CALL#E804: RETURN 


10000 REMAKES REAEAEE SETAE TTS 


10001 


REM ERROR PROOF INPUT 


10002 REMSSSEREATATAA TEATS TATE 

10003 KE$=" " 

10010 GETK$:PRINTK$; : IFASC (K$)=127ANDKE$="— "THEN10060 
10020 IFASC(K$)=13THEN10060 


10030 


IFASC (K#) =127THENKE$=LEFT$ (KE¢, LEN (KE$) -1) :GOTO10010 


10050 KE$=KE$+kK$:G0TO10010 
1006C IFKE$="" "THENPRINT"Invalid";:667010010 
10070 RETURN 


LINEAR REGRESSION 


Alex Marshall ? 


Linear Regression is a means of finding the best straight line through a set of experimental results. Students at Tech 
courses in Engineering, ‘A’ levels, and perhaps degree students may find it useful. 

It will give the slope and intercept of the line and the correlation will indicate whether it is a good fit or not. A high 
correlation of, for instance, 0.99 is an indication that your results fit a law of the type ‘y = mx + c’. A lowcorrelation 
of, for example, 0.5 means that your line is almost a curve. The program also compares x and y and quotes a law of 
the type ‘x = ay + d’. The mean values are where the two lines cross. perfect correlation of 1 means the lines 
coincide. 


10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10090 
10095 
10100 
10110 
10120 
10130 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 
10500 


PRINT"N IS THE NUMBER OF READINGS" 


PRINT" INPUT N" 
INPUTN 
PRINT" INPUT X,Y" 
FORK=1TON 

INPUTX, Y 

=F+XaY 

D=D+X*2 

A=A+X 

E=E+Y“2 
B=B+Y 

NEXTK 
M=(A&B/N-F) / (A8A/N-D) 
M=INT (M#10000+.5) /10000 


REM SIMILARLY CMD1 
LPRINT"------------ " 
PRINT" ----------—- " 
LPRINT"SLOPE = “M 


PRINT"SLOPE = "M 
C=(F-D&M) /A 

C=INT (C410000+. 5) /10000 
LPRINT“INTERCEPT = “C 
PRINT“ INTERCEPT = "C 
LPRINT"Y="M"X+"C 

PRINT" Y="M“X+"C 
LPRINT"------------ ; 


V=(ASB/N-F) / (B&B/N-E) 
V=INT (V%10000+.5) /10000 
LPRINT"SLOPE = "V 
PRINT"SLOPE = "V 
Z=(A-BRV) /N 

Z=INT (Z%10000+.5) /10000 
LPRINT" INTERCEPT = "Z 
PRINT" INTERCEPT = "Z 
LPRINT"X="V"Y¥t"Z 
PRINT"X="V"Y4"Z 


SX=SQR (D/N-(A/N) *2) 
SY=SQR ( (E/N) — (B/N) *2) 
R=M&SX/SY 
LPRINT"CORRELATION = "R 
PRINT"CORRELATION = "R 
LPRINT"MEAN X = "A/N 
PRINT"MEAN X = "A/N 
LPRINT"MEAN Y = "B/N 
PRINT"MEAN Y = “B/N 

END 
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Example :- 


The following results of a test on a lifting machine 
are thought to be connected by a law of the type 
'E = aW + b’, i.e. read E for Y and W for X. 


Effort E - 20 - 25 - 29.5 - 35 - 40.5 - 45 - 50. 
Load W - 0 - 200 - 400 - 600 - 800 - 1000 - 1200. 


Results are typed in as such:- 
0, 20 [RETURN] - 200, 25 [RETURN] and so on. 
These figures give the following results:- 


Slope = .0252 
Intercept = 19.8743 
Y = .0252 x + 19.8743 


Slope = 39.6904 
Intercept = -789.164 
X = 39.6904 Y + -789.164 


Correlation = 1.00052401 
Mean X = 600 
Mean Y = 35 


These give an excellent correlation which fit the bill 
very well. 


ORIC LETTERS 


Dear Sir, 


I’ve just set myself up with an Oric - 1 only to find 
I'm getting problems with the cassette loading. | 
know how to sort this out, but, I’ve been advised to 
use ‘Leaderless’ tapes in preference to the normal 
Hi-Fi tapes of which I’ve got plenty of stock. Do! 
need to change to specific computer tape or shall | 
use those I’ve already got? 


ED - | would suggest you avoid ‘Leaderless’ tapes 
like the plague because if you load data too close to 
the start of the tape it can leave an inch or two of the 
recording surface exposed to the elements whereas a 
few inches of leader offers better protection when 
the tape is fully wound back. But, if you are prepared 
to wind the tape a little prior to recording this will 
have the same effect as the leader type. | always 
wind ona little past the leader/tape splice as there is 
sometimes a rough area around the join. 


The only problem you may come across regarding 
using your Hi-Fi tapes is that of tape stretch when 
using the long play 60 min and 90 min type. It pays to 
fast wind them in either direction prior to use. The 
other problem is loading them with too many 
programs. Not only difficult to find the odd file, but if 
the mechanics of the cassette fail it could be 
disasterous. 


Oric Upgrade 


Dear Ed, 


Your recent article on the Oric-1 to Atmos upgrade 
put my mind at rest on the matter whether to 
upgrade - (if that’s the right word) from the Oric-1. 
I’ve become to like the Oric-1 keyboard, and for most 
part, can cope with the Rom bugs. By the way, don’t 
other computers like the BBC, Commodore, 
Spectrum etc. have bugs? ? 

| was pleased to read the article by R. Massey, on 
projects for using the Oric in the real world. My 
interest is in using it to plot, onan R.G.B. monitor, 
with printer dumps, frequency response curves, 
either from keyboard entered data or via D-A’s & 
A-D's. To start with, where can one buy mating 
plugs for the Expansion Port and Printer Port? 

| agree with Mark Casey ”Meteoric Programming” 
by John Vanden Reyden is well presented, and an 
errata sheet is available from the publishers - phone 
number 0442 826649. 


24 


Another good book is Personal Computer Worlds 
‘Oric Handbook’ with many usefull appendices 
listing all control functions etc. This book should 
replace the Oric manual. 

A book being advertised, but not yet available, is 
Oric ‘Graphics and Sound’. This, if anything, like the 
BBC book of the same title promises to find its way to 
my bookshelves. Originally, to be published by 
Granada, it is now due in July from Collins. 


Finally, has any Oric User (a) written any Hires 
graph plotting routines, (b) used joystick controls - if 
so, comments please, and (c) had any experience 
with the Hitachi 3” Disc Drives - as G.L.C. 
Computing are selling them for 135 pounds + VAT. 
Come on Oric Users, lets hear your comments on a 
terrific little computer, and Users Group. 


Richard Hebblethwaite 


MORE 


ARTICLES 


WANTED 


PLEASE 


KIMBO’S KOMENT NO. 2 


This month’s subject - - - - - - - - - WIVES!!!!! 


The following article claims full immunity from any 
sex discrimination laws. .. . 

Now | know you must be a nice reasonable sort of 
person, and from now on I’m assuming the reader is 
male (but of course !!) Anyway, as | was saying, are 
you and your machine having trouble from the old 
Trouble and Strife --- you know, the verbals, the 
incidious little digs about how this new found hobby 
of yours is not really a hobby but a way of life, and 
how it’s completely taken you over !!?? 

Sound familiar? ?????? 

Well now you and me are going to talk about ways to 
placate the ‘‘better half’’ (1 don’t know who coined 
that phrase but it wasn’t one of us !!) 

Now | suppose the garden looks neglected (well just 
a little); the outside of the house needs painting (it’s 
not too bad dear, | only did it in 1976); little Jimmy’s 
favourite toy has been broken for weeks (well he 
broke it !!); the dog doesn’t get much exercise these 
days (he’s getting old, and enjoys the rest! !); 

---etc, etc, etc,---rabbit, rabbit, rabbit........ 


SUGGESTION NO.1 

Try to get her involved. Is she a temporarily retired 
secretary?, then try the damaged hand trick... . you 
know, youve got a deadline to meet for the O.U.G. 
mag and there is no way it will be done in time with 
three feet of bandage wrapped round your right hand 


SUGGESTION NO.2 

The fame and fortune trick . . . . Keep telling her 
about the well known fact that women are supposed 
to have more of a natural ability when it comes to 
programming (??), and that if 15 year old whizz kid 
school boys can do it, then why shouldn't 30 year old 
housewives! (devious b x !! + r?!?!) 


SUGGESTION NO.3 
Slight change of tack here. Find her an evening job, 
and palm the kids off on the mother-in-law. 


SUGGESTION NO.4 

Get a divorce and don’t contest custody! Drastic yes, 
but it could preserve your sanity, and allow you to 
generate your software and hardware masterpieces 
unhindered! 

Anyway, you know i’m only joking! ? 

Girls, we couldn’t do without you or your comments.. 
(Hi Vee !!) 
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Seen any good software lately? This months 
purchase was an offering from Tansoft, their 
‘‘newey’’ Ratsplat. 
The blurb starts off by telling the user that it is a 
‘“‘truly revolting game’’! (oh boy). The aim basically 
(no, it’s in machine code), is to hammer to death rats 
in a sewer before they eat all your cheese bait. 
Sounds easy - NO WAY!! Just to complicate things a 
bit, a monster (their words not mine) appears on 
screen, who can only be zapped (killed Deidre!!) by a 
special spray from your trusty aerosol can, which 
was a hammer before hitting the SPACE bar! To 
activate the hammer or spray you hit RETURN, and 
with the normal up, down, left, right keys we have a 
six finger job!!! (and those damn rats are x x x x 
fast.) Maybe I’m getting old, but | just couldn't 
handle this one --- a joystick is really a must for this 
game. O.K., so now for the verdict:- 

Lasting appeal x x 

Playability x x 

Value for money x 

(Maximum x x x x x) 
Talking about value for money - how about the new 
special offers in our beloved O.C.:- 

Oricstar) 

Filestar) 5 pounds + pandp 

Ex-mon) 
Now that’s what | call a bargain. 
Not only software bargains, but hardware as well --- 
hopefully by the time you read this, | should have 
received and built my Voice Synthesizer kit (at 13.50 
pounds | don’t know how they do it!) I’ve been toying 
with the idea of a V.S. for the Oric for some time, but 
have held off because | couldn’t quite sus out how to 
drive 1/0 on the expansion port. Now I've finally 
worked it out, some other clever clogs have come up 
with the simple idea of using the Printer Port!!! 
Anyway, when | get it going maybe I’II write a 
review for the mag. 
Oh well, that’s just about it for this month. Keep 
those inputs to O.C. mag coming in --- lets see if we 
can make Oric Computing a leader in user group 
magazines. 


Bye for now -- Kimbo 


TEMPLE GRAFFITI 


Stop! before you throw away the envelope that your 
copy of O.C. came in make a note of your 
membership number which is to be found on the top 
right hand corner of the address label. keep this 
number in a safe place and always remember to 
quote this number in any correspondence you may 
send us. 

You may have noticed that this issue of O.C. isa 
little larger than usual. To make up for the delay in 
delivery of the last issue of O.C. which was due to an 
illness, (Bugs are not confined to Oric roms you 
know!) it was decided to make this issue a bumper 
issue, packed with more articles and programs than 
ever before. 

Have you written any programs or articles you think 
you'd like to see in O.C.? If you have something to 
say, some ideas you would like to pass on to the rest 
of us, or a program you have written, then don’t just 
sit there, put it on a cassette, shove it in a jiffy bag, 
send it to us and let’s all have a look at it! Support 
your User Group, and we’ll support you! 

Confused? Desperate? Baffled? Is an Adventure 
game driving you up the wall, round the bend, and 
generally bonkers? Then fear not, for in this issue we 
start a new srevice to all of our adventuring 
members. The Doppel-Ganger’s adventure helpline. 
Write in to us with your Adventuring problems and 
we’ ll pass them on to the Doppel-Ganger, who will 
read your letters and answer them in the magazine. 
Also, if you have the answer to any really baffling 
part of an adventure, just write in with your answer 
and this imformation will be used to help any others 
who may be stuck at that particular part. 


From Czechoslovakia with Oric. 

This issue of O.C. sees the first Oric program to 
come from behind the Iron Curtain. Oric supported 
health care by Ales Satanek M.D. of Prauge, 
Czechoslovakia, is a prime example of how a humble 
Oric can be used in a serious application, in this case 
Medical. This program allows a Doctor to keep a 
record of his patients and their illnesses and to 
search this record by either name or diagnosis. So 
now the next time anyone says to you that the Oric is 
““Just a games machine’’ you know how to reply! 
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SECTOR 7 ‘‘COMPOSER”’ 
Competition Results 


Sector 7 announced the winners of it’s Music 
competition this week. Based on it’s excellent 
software package ‘‘Composer’’, which we reviewed 
in the February edition of ‘O.C.’, three lucky entries 
resulted in first place. 


SABRE DANCE ---- -- M. Houghton. 
POP CORN - - - - -- T. Shaw. 
ONLY YOU - -- - - - J. Collins. 


The winners share the 100.00 prize for producing the 
most entertaining music using ‘Composer’. 
Please note Sector 7’s addres is:- 


Sector 7 Software 
P.O. Box 8 
Newton Abbot 
Devon. TQ12 1UE 
Tel:- (06267) 4504 


MEMBERS NOTICE 
Firstly we would like to apologize for the delay in our 
members receiving their O.C. issues March/April 
but unfortunately due to a long illness our editorial 
department was closed down for several weeks. We 
are pleased to say that all is now coming back to 
normal and this double issue will help us to get back 
into our routine. Don’t forget, User Groups such as 
ours do require your support. 


ADVENTURE HELPLINE CORNER 


Dear D.G. ; Dear Dopple-Ganger. 

| am having trouble getting into the shed in the | like Crowley’s House and these types of 

garden of Crowley’s House. | have tried several supernatural adventures but how can | find out how 
times but | seem to be running around in circles. to fight things like the Mara, or the Redcap, and 
What can | do about it? Is ita dead end? what are they anyway? 

Clue - The key to your problems lies in the cellar, Clue - | suggest you go down to your local Library 
with a little Christmas spirit you can sweep your and look through the Supernatural book section, if 
troubles away. they have one. Most big libraries should have books 


which will contain details of these creatures, and 
how they should be dealt with. 


Dear Dop. 

| have so far visited every location in Crowley’s 

House, but cannot get any further than the cellar. Dear Dop. 

What do | do now? | recently bought a copy of Hell’s Temple, and | think 
it’s great, but I’ve never been reincarnated, what do 

Clue - | suggest you Push your problem out of the | have to do to get another life? 


way, or have you read the Paper? 
Clue - To be reincarnated you have to travel deep 


within the temple and gain many experience points. 
You gain these points by defeating the denizens of 
Dear Dopple-Ganger. the temple, and the more points you amass, the 
In that super Hell’s Temple | keep falling down greater the chance of you being reincarnated. 
trapdoors into deep holes, is there any way | can 
avoid this as | get killed quite easily and | never seem 


to get reincarnated - tough life isn’t it? 
Dear D.G. 


| recently bought a copy of Level 9’s Snowball 
adventure game, but | keep being killed by the 
Nightingales. What should | do, and how can | get to 
anywhere on the spaceship? 


Clue - Using your spell-power you can detect 
whether any treasure seemingly in a room is real or 
an illusion. Illusory treasure can often be the bait ina 
trap! so spell power is the answer here. 


Clue - As soon as you hear a noise you should wait 
until the noise fades. Saying silly things can result in 


Dear Dop. you being taken to a padded cell, which is another 

| just bought the Hobbit adventure game, because | way to get out of the circle of mortuaries, but the 
read about it in one of the mags and it seemed to be best thing to do is to learn the colour code which can 
quite good, but every time | start to do well, the help you find your way about. 

game crashes, very often when I’m in the Goblins’ 

dungeon. 


Dear Dopple-Ganger. 

| have recently purchased the Salamander Software 
game, Franklin’s Tomb, and so far | have collected 
most of the things | need, but | can’t find the last 
object, can you give me a clue? 


Clue - So does mine! The only thing | can suggest is 
saving it regularly, then if it does crash you won't 
have to start from the beginning again. My copy of 
The Hobbit also tends to crash mainly in the Goblins’ 


caves 
Clue - Have you read your Horoscope this morning? 
Dear D.G. 
| recently bought a copy of Severn Software’s Moira, 
but | can’t seem to get far in it. Dear Dop. 
ae Could you tell me what to do in Crowley’s House. Ive 
Clue - Well | haven’t tried that adventure program been up and down the stairs and all around the 
fully yet, but when | saw it | wasn’t too impressed garden, but I can’t see what | have to do. 
anyway. 


Clue - Brush up on your Dennis Wheatley novels. 


If you have any problems with your Adventure programs why not send your questions to me, The Dopple-Ganger, 
C/o OUG. 
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ORIC CROSSWORD PUZZLE 


Some easy clues, same not so easy - aa cn. have a ao!!! 


ALROSS 


1. Not NORMAL on an ATHOS 7 (7) 

3, If this is the same as INK you could have problems. (5) 
a. Memory or Accumulator. (3) 

9. Edible version of 10 down. (3) 

1O, You could be buying one of these for vour ORIC. (19) 
ti. I Left a bit off thie one. (2) 
12. Transfer Eddie to X register. 
14, Move from one nested iocop. (4): 
18. @ across isn’t as exclusive as this one!! (3) 

20. No place for decimals on this. (7) 

23. CHR#$(12) (3) 

See 10 down. (2) 

Without this your loop would have difficulty. (4) 
Early ORICs had these fitted!!!! (4) 

You might need this if you want it on paper. (6) 
Redundant keyword in V1.0 ROM. (2) 

33, Best place to put a V1.0 ROM!!!! (4) 

35. Get rid of your old program. (3) 

37, This byte comes last-it"s the tops. (4) 

38. --MEM #97FF does the trick! (2) 

39. ORIC ----- S USER GROUF. (5) 

40. Useful addition ta PRINT in the V1.1 ROM. (2) 

41. Added to 32 across it now makes sense. (2) 

3. Absolutely 6E. (3) 

44, A real bug, stupid!! (3) 

46. Alien sound, (3) 

7. This 1s not quite the end!! (3) 


fa 


DOWN 

i. Not the output? (5) 

2. Lovely lady down in Worle. (3) 

4. Computer connection point-hello sailor!! (4) 

5S. Send 43 across the other way. (3) 

6. Untrue! (5) 

7. Useful command for a computer artist. (4) 

10. 22/7 approximately. (2) 

13. ORIC circles are like this. (10) 

14. A question mark will do nicely. (5) 

15. Storage cade BC. (4) 

16, ==MOS. (2) 

17, GO backwards. (2) 

19. This code is a must for Assemblers. (2) 

21. Gives vour number some power. (8) 

22. Where you will find your operating system. (3) 
ie 


28. 
30, 
Shs 
M4. 
34. 
42, 
43. 
4a. 


Some people don’t know this from their left! 
Computers + peripherals = .w.aeee- (7) 


(3) 


B4 you check your storage code, is it the right way round? (2) 


Same as 35 across (0.K. so no-bady’s 
Lots of resclution with this. (5) 

The alternate (1) looks interesting. 
This lad was very active down at Tug 
Somewhere between zera and two!! (3) 
Definate article-how’s your English? 
On your bike alien, pay for your own 


48. You have to do this to copper to make anv sense of your circuit. (4) 


49, Store your pattern like this. (2) 
SO. If ali else fails with your problems , try this Mr.Morse!! 


(3) 


perfect! !). (3) 


(5S) 
{a good friend of Ernie!),. 
(3) 


phone calls!!!!!! (2) 


(4) 


- EXTENSION MONITOR-EXTENSION MONITOR - 


THIS POWERFUL MACHINE CODE EXTENSION MONITOR IS NOW AVAILABLE THROUGH O.U.G. ATA 
SILLY PRICE OF 5.00 TO GROUP MEMBERS - ORIGINAL RRP 15.00 - SAVE 10.00 WITH O.U.G. 


FACILITIES INCLUDE:- MEMORY DISPLAY & MODIFICATION - PROGRAM DEBUGGING FACILITIES - 
DISPLAY BREAKPOINT TABLE - DISPLAY BREAKPOINT HIT - HEX LISTING DISPLAY - DISSASSEMBLED 
LISTING SET BREAKPOINTS - SINGLE STEP PROGRAM CONTINUE FROM LAST BREAKPOINT - SEARCH 
FOR BYTE STRING 7 DISPL/.Y ADDRESS - SEARCH FOR CHARACTER STRING & DISPLAY ADDRESS - 
RETURN TO BASIC COMMAND MODE - INITIALISE A PROGRAM - ELIMINATE BREAKPOINTS - A, X, Y, P, K 
REGISTER DISPLAY & MODIFICATION - USER DEFINED COMMAND FACILITY - HEXIDECIMAL 
ARITHMETIC WITH HEX DISPLAY & DECIMAL DISPLAY - DISPLAY LAST RESULT - DISPLAY OVERFLOW 

& REMAINDER - PRINTER ON/OFF FACILITY - COMPREHENSIVE USER MANUAL 


“AS ANY MACHINE CODE PROGRAMMER WILL CONFIRM, A GOOD MONITOR IS AN ESSENTIAL TOOL” - 
“THIS IS A THOROUGHLY PROFESSIONAL PIECE OF SOFTWARE AND IS AN IDEAL PURCHASE FOR 
ANYONE CONSIDERING TAKING UP MACHINE CODE PROGRAMMING” - WHICH MICRO (NOV 83) 


EXMON (EXTENSION MONITOR) - 5.00 Inc 
DON’T MISS OUT ON THESE EXCITING DEVELOPMENTS 
WITH O.U.G. SOFTWARE - ORDER DIRECT 


Please make cheques payable to:- 


Oric Owners User Group 
1 Marlborough Drive, Worle, Avon. BS22 0DQ 


‘House for Sale’ 


Old Hall House, a desirable residence situated in the Yorkshire countryside near the picturesque village of 
Thistlethorpe. 


THE DOPPEL-GANGER SCENARIO 


“A friend of yours is the latest owner of Old Hall House, and invites you over to stay for the weekend. The evening 
you arrive you sit by the roaring fire whilst you are told tales of insanity, disappearances and deaths, all of which 
have befallen the previous owners. 

The following morning you awake, to discover that your friend has mysteriously vanished! Searching the house, you 
discover a note, and have just time to read it before a gust of wind wafts it into the flames. From this note you gather 
that the house was once owned in the mid ‘Twenties by Aleister Crowley, and used for mysterious rites, and that 
your friend had come to believe that somewhere in the house was concealed a great occult treasure. You know your 
course of action, somehow you must find this object and put an end to the evil that has tainted the very Stones of the 
house, and the minds of its owners, but how?” 


A visit to Crowley’s House. 


A Supernatural Adventure for the real connoiseur, no swordplay, no sorcery, just you and your wits versus the dark 


forces of evil. 

Using the time-honoured methods related in the legends you must decide upon which objects you can use to repel or 
destroy the supernatural creatures who inhabit Crowley's House and defend the evil treasure concealed within. 
Only time can tell who will win. Will it be you, or will it be Crowley’s House? 


”"CROWLEY’S HOUSE” 
5.00 pounds Inc to O.U.G. Members. 


ASTRO-WAR . SPACECHASE 


TYPE OF COMPUTER 


CASSETTE TITLES 
1) 
2) 
3) 
NAME: .. 
ADDRESS: .... 


or order direct from 
CASTLE LODGE, CASTLE GREEN, TAUNTON, SOM. TA1 4AB 


